'v2.A***************************************************** ' File: HistoryFavoritesLoeschen.VBS ' Autor: dieseyer@gmx.de ' dieseyer.de ' ' History- & Favoriten-Verzeichnis loeschen: dazu müssen ' noch die entsprechenden fso.DeleteFolder - Zeilen frei ' gegeben werden '********************************************************* Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") Desktop = Left(WshShell.SpecialFolders("Desktop"), InStrRev(WshShell.SpecialFolders("Desktop"), "\") -1) ' ********** Cookies ********** ' C:\WINNT\Profiles\xs30sey\Cookies ' das "Cookies" - Verzeichnis liegt im gleichen Verzeichnis wie andere ' WshSpecialFolders. Z.B. über das "Desktop"-Verzeichnis läßt sich der Pfad aufbauen: VerzDel = Desktop & "\Cookies" If fso.FolderExists(VerzDel) Then Set VerzDel = fso.GetFolder(VerzDel)) ' *** folgende Zeile frei geben ' fso.DeleteFolder(VerzDel), True ' *** folgende Zeile NICHT frei geben MsgBox """Cookies"" - Verzeichnis gelöscht", vbOKOnly, WScript.ScriptName End If ' ********** Auslagerungsdatei ********** ' Folgender Eintrag sorgt dafür, dass die Auslagerungsdatei beim Beenden gelöscht wird. ' So können später dort keine Daten ausgelesen werden. ' [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management] ' "ClearPageFileAtShutdown"=dword:00000001 ' ********** Dokumente 1 ********** ' Die Zeichenfolge NoRecentDocsHistory im Registry-Schlüssel ' HKEY_CURRENT_USER\Software\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer ' hindert Windows am weiteren Mitprotokollieren der zuletzt geöffneten Dokumente. ' Lässt eine bestehende Liste ebenso wie den Menüpunkt 'Dokumente' im Startmenü ' jedoch unberührt (siehe c't 6/02, S.258) ' HKEY_CURRENT_USER\Software\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer ' NoRecentDocsHistory ' ********** Dokumente 2 ********** ' Die Zeichenfolge ClearRecentDocsOnExit im Registry-Schlüssel ' HKEY_CURRENT_USER\Software\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer ' veranlasst Windows, die Liste der zuletzt geöffneten Dokumente beim nächsten Herunterfahren ' zu löschen. Abmelden reicht nicht, auch der Befehl 'rundll32.exe user,exitwindows' lässt ' die Dokumenten-Liste intakt. Hindert Windows zudem nicht an der weiteren Protokollierung. ' Löscht außerdem die Listen der zuletzt eingegebenen URLs sowie der zuletzt unter AUSFÜHREN ' eingegebenen Befehle. ' HKEY_CURRENT_USER\Software\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer ' ClearRecentDocsOnExit ' ********** Favoriten ********** ' das "Favoriten" - Verzeichnis läßt sich leicht durch das ' WshSpecialFolders - Objekt ermitteln If fso.FolderExists(WshShell.SpecialFolders("Favorites")) Then Set VerzDel = fso.GetFolder(WshShell.SpecialFolders("Favorites")) ' *** folgende Zeile frei geben ' fso.DeleteFolder(VerzDel), True ' *** folgende Zeile NICHT frei geben MsgBox """Favoriten"" - Verzeichnis gelöscht", vbOKOnly, WScript.ScriptName End If ' ********** Verlauf ********** ' das "Verlauf" - Verzeichnis liegt im gleichen Verzeichnis wie andere ' WshSpecialFolders. Z.B. über das "Desktop"-Verzeichnis läßt sich der Pfad aufbauen: VerzDel = Desktop & "\Verlauf" If fso.FolderExists(VerzDel) Then Set VerzDel = fso.GetFolder(VerzDel)) ' *** folgende Zeile frei geben ' fso.DeleteFolder(VerzDel), True ' *** folgende Zeile NICHT frei geben MsgBox """Verlauf"" - Verzeichnis gelöscht", vbOKOnly, WScript.ScriptName End If ' ********** His6 ********** ' Der Verlauf des IE v5.0 liegt (neben Desktop) und heißt bei mir "His6". ' Ich bekommen unter NT4 beim Lösch-Versuch "Erlaubnis verweigert". ' Beim Aufruf über die "Autostart"-Gruppe geht's aber, wenn die MsgBox- ' Zeilen deaktiviert sind. VerzDel = Desktop & "\His6" If fso.FolderExists(VerzDel) Then Set VerzDel = fso.GetFolder(VerzDel)) ' *** folgende Zeile frei geben ' fso.DeleteFolder(VerzDel), True ' *** folgende Zeile NICHT frei geben MsgBox """His6"" - Verzeichnis gelöscht", vbOKOnly, WScript.ScriptName End If