'*** v9.6 *** www.dieseyer.de ****************************** 

' 

' Datei:  ShellApplicationNamespace.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' Die Sub-Prozedur  

'	ShellApplicationNamespace( ) 

' ermittel alle verfügbaren 'Umgebungsparameter' 

' 

'*********************************************************** 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

  Dim Txt, Tst, i 

 

 

' Alle gesetzten 'NameSpace' anzeigen (Sucbegriff ist leer) 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  Tst = WScript.ScriptFullName & ".txt" 

  Txt = ShellApplicationNamespace( "" ) 

  WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile( Tst, 2, true ).WriteLine ( Txt ) 

  WScript.CreateObject("WScript.Shell").Run "notepad """ & Tst & """" 

 

 

' Alle 'NameSpace' anzeigen, die Sucbegriff enthalten 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  MsgBox ShellApplicationNamespace( "start" ), , "21 :: " & WScript.ScriptName 

 

 

' Pfad zu einem 'NameSpace' anzeigen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  i = 24 

  Txt = CreateObject("Shell.Application").Namespace( i ).Self.Name 

  Txt = Txt & vbCRLF & CreateObject("Shell.Application").Namespace( i ).Self.Path 

  MsgBox vbTab & i & vbCRLF & Txt, , "28 :: " & WScript.ScriptName   

 

' Pfad zu einem 'NameSpace' anzeigen 

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

  i = 6 

  Txt = CreateObject("Shell.Application").Namespace( 6 ).Self.Path 

  MsgBox vbTab & i & vbCRLF & Txt, , "28 :: " & WScript.ScriptName   

 

WScript.Quit 

 

 

'*** v9.5 *** www.dieseyer.de ****************************** 

Function ShellApplicationNamespace( Txt ) 

'*********************************************************** 

  Txt = LCase( Txt ) 

  Dim objShell		: Set objShell		= CreateObject("Shell.Application") 

  Dim Tst, Tyt, i 

  i = 0 

  Do 

	Tyt = "" 

  On Error Resume Next 

	Tyt = i & ": " & vbTab & objShell.Namespace( i ).Self.Name & vbTab & objShell.Namespace( i ).Self.Path  

  On Error Goto 0 

	If InStr( LCase( Tyt ), Txt )		> 0 Then Tst = Tst & Tyt & vbCRLF	' nur Zeilen mit ... 

  	i = i + 1 : If i > 255 Then Exit Do 

'	If Len( Tst ) > 800 Then MsgBox Tst : Tst = "" 

  Loop 

 

  ShellApplicationNamespace = Tst 

End Function ' ShellApplicationNamespace() 

 

' 0: 	Desktop	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Desktop 

' 1: 	Internet Explorer	::{871C5380-42A0-1069-A2EA-08002B30309D} 

' 2: 	Programme	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Startmenü\Programme 

' 3: 	Systemsteuerung	::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D} 

' 4: 	Drucker und Faxgeräte	::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{2227A280-3AEA-1069-A2DE-08002B30309D} 

' 5: 	Eigene Dateien	D:\EigeneDateien 

' 6: 	Favoriten	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Favoriten 

' 7: 	Autostart	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Startmenü\Programme\Autostart 

' 8: 	Zuletzt verwendete Dokumente	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Recent 

' 9: 	SendTo	C:\Dokumente und Einstellungen\[AngemeldeterUser]\SendTo 

' 10: 	Papierkorb	::{645FF040-5081-101B-9F08-00AA002F954E} 

' 11: 	Startmenü	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Startmenü 

' 13: 	Eigene Musik	D:\EigeneDateien\Eigene Musik 

' 14: 	Eigene Videos	D:\EigeneDateien\Eigene Videos 

' 16: 	Desktop	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Desktop 

' 17: 	Arbeitsplatz	::{20D04FE0-3AEA-1069-A2D8-08002B30309D} 

' 18: 	Netzwerkumgebung	::{208D2C60-3AEA-1069-A2D7-08002B30309D} 

' 19: 	Netzwerkumgebung	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Netzwerkumgebung 

' 20: 	Fonts	C:\WINDOWS\Fonts 

' 21: 	Vorlagen	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Vorlagen 

' 22: 	Startmenü	C:\Dokumente und Einstellungen\All Users\Startmenü 

' 23: 	Programme	C:\Dokumente und Einstellungen\All Users\Startmenü\Programme 

' 24: 	Autostart	C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart 

' 25: 	Desktop	C:\Dokumente und Einstellungen\All Users\Desktop 

' 26: 	Anwendungsdaten	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Anwendungsdaten 

' 27: 	Druckumgebung	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Druckumgebung 

' 28: 	Anwendungsdaten	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Lokale Einstellungen\Anwendungsdaten 

' 31: 	Favoriten	C:\Dokumente und Einstellungen\All Users\Favoriten 

' 32: 	Temporary Internet Files	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Lokale Einstellungen\Temporary Internet Files 

' 33: 	Cookies	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Cookies 

' 34: 	Verlauf	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Lokale Einstellungen\Verlauf 

' 35: 	Anwendungsdaten	C:\Dokumente und Einstellungen\All Users\Anwendungsdaten 

' 36: 	WINDOWS	C:\WINDOWS 

' 37: 	system32	C:\WINDOWS\system32 

' 38: 	Programme	C:\Programme 

' 39: 	Eigene Bilder	D:\EigeneDateien\Eigene Bilder 

' 40: 	[AngemeldeterUser]	C:\Dokumente und Einstellungen\[AngemeldeterUser] 

' 41: 	system32	C:\WINDOWS\system32 

' 43: 	Gemeinsame Dateien	C:\Programme\Gemeinsame Dateien 

' 45: 	Vorlagen	C:\Dokumente und Einstellungen\All Users\Vorlagen 

' 46: 	Gemeinsame Dokumente	C:\Dokumente und Einstellungen\All Users\Dokumente 

' 47: 	Verwaltung	C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Verwaltung 

' 48: 	Verwaltung	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Startmenü\Programme\Verwaltung 

' 49: 	Netzwerkverbindungen	::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{7007ACC7-3202-11D1-AAD2-00805FC1270E} 

' 53: 	Gemeinsame Musik	C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Musik 

' 54: 	Gemeinsame Bilder	C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder 

' 55: 	Gemeinsame Videos	C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Videos 

' 56: 	Resources	C:\WINDOWS\Resources 

' 57: 	0407	C:\WINDOWS\Resources\0407 

' 59: 	CD Burning	C:\Dokumente und Einstellungen\[AngemeldeterUser]\Lokale Einstellungen\Anwendungsdaten\Microsoft\CD Burning 

' 61: 	Workgroup	Workgroup 

'