'#############################################################################################################################################################################################################################
'#######################  Original von Falk Weihmann ######################################################################################################################################################################### 
'####################### http://weihmann.freesite.de #########################################################################################################################################################################
'#############################################################################################################################################################################################################################
option explicit								'alle Variablen einzeln deklarieren
dim shell
dim filesyst,inp,v,v1,v2,v3,v4,f,a,u,la,da,wd,te,o ' Variablen deklarieren
const root1="HKCU\Software\Microsoft\Office\9.0\Access\Settings\MRU1"  	'Konstante (Win-Registrierung : HKEY_CURRENT_USER - Access Version)-Liste der zulezt verwendeten Dateien (hier nur 2 als Standard gesetzt) deklarieren
const root11="HKCU\Software\Microsoft\Office\9.0\Access\Settings\MRU2"
const root111="HKCU\Software\Microsoft\Office\9.0\Access\Settings\MRU Flags1"
const root1111="HKCU\Software\Microsoft\Office\9.0\Access\Settings\MRU Flags2"
const root2="HKCU\Software\Microsoft\Office\9.0\Excel\Recent Files"    	'Konstante (Win-Registrierung : HKEY_CURRENT_USER - Excel Version)-Liste der zulezt verwendeten Dateien deklarieren 
const root3="HKCU\Software\Microsoft\Office\9.0\Word\Data\Settings"    	'Konstante (Win-Registrierung : HKEY_CURRENT_USER - Word Version)-Liste der zulezt verwendeten Dateien deklarieren
const schl1="HKCU\Software\VBS\"    ' Konstante für Win-Registrierung zum ablegen der aufr-Script Infos
const wert1="Script_Name"	    ' Konstante für Script-Namen	
const ziel1="\Anwendungsdaten\Microsoft\Office\Zuletzt verwendet\"  	'Konstante für zuletzt verwendete Dateien
const ziel2="\Cookies\"							'Konstante für Cookies
const ziel4="\Temporary Internet Files\"				'Konstante für TempInternetFiles
const ziel5="\Recent\"							'Konstante für Recent
wind									'Funktion wind aufrufen
letzte									'Funktion letzte aufrufen
schl schl1 & "Script_name",wscript.scriptname				'Funktion schl aufrufen (Schlüssel und Wert für Registrierung festlegen (ScriptName))
schl3 schl1 & "Letzte_Ausführung",now()					'Funktion schl3 aufrufen (Schlüssel und Wert für Registrierung festlegen (LetzteAusführung))
datum									'Funktion datum aufrufen
user									'Funktion user aufrufen
frage									'Funktion frage aufrufen
sub wind()								'Funktion wind ausführen
dim umg
set shell=wscript.createobject("wscript.shell")				'Objekte setzen
set umg=shell.environment("process")					
wd=umg("WINDIR")							'Windows-Verzeichnis auslesen, als Variable wd speichern
te=umg("TEMP")								'Temp-Verzeichnis auslesen, als Variable te speichern
end sub
sub schl(schl2,wert)							'Funktion schl ausführen (Schlüssel und Wert aus Funktionsaufruf nehmen!)
set shell=wscript.createobject("wscript.shell")				'Objekt setzen
shell.regwrite schl2,wert						'Schlüssel und Wert schreiben(Script_name)
end sub
sub schl3(schl4,wert2)							'Funktion schl3 ausführen (Schlüssel und Wert aus Funktionsaufruf nehmen!)
set shell=wscript.createobject("wscript.shell")				'Objekt setzen
shell.regwrite schl4,wert2						'Schlüssel und Wert schreiben(Letzte_Ausführung)
end sub
sub letzte()								'Funktion letzte ausführen (wird vor dem Überschreiben der neuen Schlüssel und Werte ausgeführt !)
on error resume next							'Fehler killen wenn erste Ausführung des Scripts
set shell=wscript.createobject("wscript.shell")				'Objekt setzen
la=shell.regread("HKCU\Software\VBS\Letzte_Ausführung")			'Registrierung auslesen (Letzte_Ausführung) und als Variable la speichern
end sub
sub datum()								'Funktion datum ausführen
da=date()								'Aktuelles Datum als Variable da speichern
end sub
sub user()								'Funktion user ausführen
set shell=wscript.createobject("wscript.shell")				'Objekt setzen
o=shell.regread("HKLM\Software\Microsoft\Windows\CurrentVersion\RegisteredOrganization")	'Organisation als Variable o speichern
u=shell.regread("HKLM\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner")		'User als Variable u speichern
end sub
sub frage()								'Funktion frage ausführen
set shell=wscript.createobject("wscript.shell")				'Objekt setzen
f="Heute ist der  " & da & chr(13)&"" & chr(13)&"Sie haben dieses Programm am : " & la & chr(13)& "zuletzt ausgeführt !" & chr(13)&""& chr(13) &"Sie haben 15 Sekunden Zeit, dieses Programm fortzusetzen !" & chr(13) & "" & chr(13) & "Klicken Sie [ OK ] um das Programm auszuführen !"& chr(13) & "" & chr(13) &"Klicken Sie [ ABBRECHEN ] zum Beenden" & chr(13) &"oder lassen Sie die Zeit verstreichen !" 	'Frage der MsgBox als Variable f (mit den Variablen o, u, da und la) speichern
a=shell.popup(f,15,"Möchten Sie den Computer 'aufräumen' ?",vbokcancel + vbinformation + vbdefaultbutton2)																																						'Antwort als Variable a speichern - PopUp-Fenster für 15 Sekunden offen lassen	
if (a=vbcancel) or(a=-1) then						'Wenn a(Antwort)=Abbrechen oder Nein dann...
wscript.quit								'Script beenden
else los								'Anderenfalls Funktion los aufrufen...
end if									'Ende der Fallunterscheidung
end sub
sub los()								'Funktion los ausführen
init									'Funktion init aufrufen
input									'Funktion input aufrufen
end sub
sub init()								'Funktion init ausführen
set filesyst=wscript.createobject("scripting.filesystemobject")		'Objekt setzen
end sub
sub input()								'Funktion input ausführen
v=msgbox("Guten Tag Aktueller Anwender :  " & o & " - " & u +chr(13)+"***********************************************************************************"+chr(13)+"Sie können jetzt wählen, welche Einträge Sie löschen möchten !"+chr(13)+""+chr(13)+"Möchten Sie die Dateiauswahl-Einträge der MS-Office Programme löschen ?",vbquestion + vbyesno + vbdefaultbutton2,"Auswahl Nr. 1")	'MsgBox als Variale v abspeichern
if v=vbyes then								'Wenn Antwort(v)=Ja, dann...
loesch									'Funktion loesch aufrufen
else loesch2								'ansonsten Funktion loesch2 aufrufen
end if									'Ende Auswahl
end sub  
sub loesch()								'Funktion loesch ausführen
on error resume next							'Fehler übergehen
set shell=wscript.createobject("wscript.shell")				'Objekt setzen
shell.regdelete root1							'Konstante root1 us Registrierung löschen
set shell=wscript.createobject("wscript.shell")				'weitere Konstanten löschen....
shell.regdelete root11
set shell=wscript.createobject("wscript.shell")
shell.regdelete root111
set shell=wscript.createobject("wscript.shell")
shell.regdelete root1111
set shell=wscript.createobject("wscript.shell")
shell.regdelete root2
set shell=wscript.createobject("wscript.shell")
shell.regdelete root3
msgbox"Einträge gelöscht !",vbinformation + vbokonly			'MsgBox ,dass Einträge gelöscht sind
loesch2									'Funktion loesch2 aufrufen
end sub					
sub loesch2()								'Funktion loesch2 ausführen
on error resume next
v1=msgbox("Möchten Sie nun die speicherplatzblockierenden temporären Dateien löschen ?",vbquestion + vbyesno+ vbdefaultbutton2,"Auswahl Nr. 2")	'Variable Antwort
if v1=vbyes then							'Wenn Antwort(v1)=Ja dann...
filesyst.deletefile filesyst.buildpath(te,"*.*")			'Alle Dateien aus Pfad der Variablen te löschen
filesyst.deletefile filesyst.buildpath(wd & ziel4,"*.*")		'Alle Dateien aus Pfad der Variablen wd\ziel4 löschen
else loesch3								'Ansonsten Funktion loesch3 aufrufen
end if									'Ende Auswahl
msgbox"Auftrag erledigt !",vbinformation + vbokonly,"Gelöscht !"	
loesch3									'Funktion loesch3 aufrufen
end sub
sub loesch3()								'Funktion loesch3 ausführen
on error resume next
v2=msgbox("Möchten Sie auch den Ordner der zuletzt verwendeten Dateien leeren ?",vbquestion + vbyesno+ vbdefaultbutton2,"Auswahl Nr. 3")	'Antwortvariable
if v2=vbyes then							'Wenn,dann
filesyst.deletefile filesyst.buildpath(wd & ziel1, "*.*")		'Alle Dateien dieses Pfades löschen
filesyst.deletefile filesyst.buildpath(wd & ziel2, "*.*")
else loesch4
end if
msgbox "Auftrag erledigt !",vbinformation + vbokonly,"Ordner geleert !"
loesch4									'Funktion loesch4 aufrufen
end sub
sub loesch4()								'Funktion loesch4 ausführen
on error resume next
v3=msgbox("Als letzte Aktion können Sie auch den Ordner Dokumente leeren ?",vbquestion + vbyesno+ vbdefaultbutton2,"Auswahl Nr. 4")
if v3=vbyes then
filesyst.deletefile filesyst.buildpath(wd & ziel5, "*.*")		'........................siehe oben
else ende
end if
msgbox"Auftrag erledigt ! ",vbinformation + vbokonly,"Ordner geleert !"
ende									'Funktion ende aufrufen
end sub
sub ende()								'Funktion ende ausführen
msgbox"Programm beendet ! ",vbinformation + vbokonly,"ENDE !"		'Meldung(MsgBox)
wscript.quit								'Script beenden
end sub
'#############################################################################################################################################################################################################################
'#######################  Original von Falk Weihmann ######################################################################################################################################################################### 
'####################### http://weihmann.freesite.de #########################################################################################################################################################################
'#############################################################################################################################################################################################################################