http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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
'

http://dieseyer.de • all rights reserved • © 2011 v11.4