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