'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