pcwCleaner
Posted 01/27/2009 - 16:40 by admin
<HTML> <HEAD> <TITLE>pcwCleaner 2.5 - Konfiguration </TITLE> <HTA:APPLICATION ID = "pcwCleaner" APPLICATIONNAME = "pcwCleaner BORDER = "normal" CAPTION = "yes" SHOWINTASKBAR = "yes" SINGLEINSTANCE = "yes" SYSMENU = "yes" WINDOWSTATE = "normal" SCROLL = "no" SCROLLFLAT = "no" VERSION = "1.0" INNERBORDER = "no" SELECTION = "no" MAXIMIZEBUTTON = "no" MINIMIZEBUTTON = "yes" NAVIGABLE = "No" CONTEXTMENU = "no" BORDERSTYLE = "normal"/> <STYLE type="text/css"> body {font-family:Tahoma,Verdana,Arial,Geneva; border:none; scrollbar-arrow-color: #BBF0FF; scrollbar-base-color: #000000; scrollbar-dark-shadow-color: #00204A; scrollbar-track-color: #00204A; scrollbar-face-color: #2969B5; scrollbar-shadow-color: #000000; scrollbar-highlight-color: #00204A; scrollbar-3d-light-color: #00204A; font-style:normal; font-size:12; color:#FFFFFF; background-color:#2969B5; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr="#00204A", EndColorStr="#00357B"); } .Label { font-family:Tahoma,Verdana,Arial,Geneva; font-style:normal; font-size:12; color:#FFFFFF; background-color:#2969B5; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr="#00204A", EndColorStr="#00357B"); Border:none } .Textbox { font-family:Tahoma,Verdana,Arial,Geneva; font-style:normal; font-size:12; color:#FFFFFF; background-color:#2969B5; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr="#00204A", EndColorStr="#00357B"); border-right: #000000 2pt solid; border-top: #000000 2pt solid; border-left: #000000 2pt solid; border-bottom: #000000 2pt solid; } .Button { font-family:verdana; font-size:12; font-weight:bold; background-color:#008000; color:#FFFFFF; border-right: #000000 2pt solid; border-top: #000000 2pt solid; border-left: #000000 2pt solid; border-bottom: #000000 2pt solid; filter:Alpha(opacity=100, finishopacity=40, style=3); } .Button1 { font-family:verdana; font-size:12; font-weight:bold; background-color:#CC0000; color:#FFFFFF; border-right: #000000 2pt solid; border-top: #000000 2pt solid; border-left: #000000 2pt solid; border-bottom: #000000 2pt solid; filter:Alpha(opacity=100, finishopacity=40, style=3); } <!-- a:link { font-family:verdana; font-size:12; color:#FF8000; } a:visited { font-family:verdana; font-size:12; color:#FFFFFF; } a:hover { font-family:verdana; font-size:12; color:#FF8000; font-weight:bold; } --> .Link { font-family:verdana; font-size:12; color:#FF8000; } </STYLE> </HEAD> <SCRIPT LANGUAGE="VBScript"> Dim Actions Dim Admin Dim alldrives Dim alluser Dim AtStartFree Dim Batch Dim Cache Dim Cookies Dim csid Dim dl(25) Dim dnum Dim dtb Dim killer Dim msg(18) DIM MyName Dim MyPath Dim OfficeRecent Dim pfad Dim Systemp Dim TempDir Dim userprofile Dim Verlauf Dim winos Dim WinRecent Dim WordBackup on error resume next Set myfiles = CreateObject("Scripting.FileSystemObject") Set myshell = CreateObject("Wscript.Shell") Set myNet = CreateObject("WScript.Network") Set myEnv = MyShell.Environment("PROCESS") Set SysEnv = MyShell.Environment("SYSTEM") pfad=myEnv("PATH") userprofile = MyEnv("USERPROFILE") alluser = MyEnv("ALLUSERSPROFILE") if right(userprofile,1)<>"\" then userprofile=userprofile & "\" myName=chr(34) & myNet.UserName & chr(34) myPath = Myfiles.GetFolder(".") batch=mypath & "\pcwCleaner.cmd" checkversion IsAdmin myname killer=mypath & "\pcwKill.EXE" if not myFiles.FileExists(killer) then killer="" IsKillEXE end if Set mydrives=myFiles.drives for each temp in mydrives if temp.drivetype=1 or temp.drivetype=2 or temp.drivetype=5 then if ucase(temp.driveLetter) <> "A" and ucase(temp.driveLetter) <> "B" then dnum=dnum + 1 DL(dnum)=temp.Driveletter AtStartFree=AtStartFree + temp.FreeSpace alldrives=alldrives & DL(dnum) & " " end if end if next AppData=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\AppData") if AppData="" or len(AppData)<5 then ciao=msgbox ("Cleaner kann aus Sicherheitsgründen nicht fortsetzen." _ & chr(13) & "Der Pfad für Anwendungsdaten ist nicht korrekt." _ & chr(13) & appdata,1,"pcwVistaCleaner 1.2") call SubQuit() end if if right(AppData,1) <> "\" then AppData = AppData & "\" WordBackup = AppData & "Microsoft\Word\" WordBackup = chr(34) & WordBackup & chr(34) OfficeRecent = AppData & "Microsoft\Office\Zuletzt verwendet" OfficeRecent =chr(34) & OfficeRecent & chr(34) Tempdir=myEnv("Temp") if Tempdir="" or len(Tempdir)<5 then ciao=msgbox ("Cleaner kann aus Sicherheitsgründen nicht fortsetzen." _ & chr(13) & "Der Pfad für das User-Temp-Verzeichnis ist nicht korrekt." _ & chr(13) & Tempdir,1,"pcwVistaCleaner 1.2") call SubQuit() end if Tempdir=chr(34) & Tempdir & chr(34) SysTemp=SysEnv("Temp") if SysTemp="" or len(SysTemp)<5 then ciao=msgbox ("Cleaner kann aus Sicherheitsgründen nicht fortsetzen." _ & chr(13) & "Der Pfad für das System-Temp-Verzeichnis ist nicht korrekt." _ & chr(13) & SysTemp,1,"pcwVistaCleaner 1.2") call SubQuit() end if SysTemp=chr(34) & SysTemp & chr(34) Cache=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache") if Cache="" or len(Cache)<5 then ciao=msgbox ("Cleaner kann aus Sicherheitsgründen nicht fortsetzen." _ & chr(13) & "Der Pfad für den IE-Cache ist nicht korrekt." _ & chr(13) & Cache,1,"pcwVistaCleaner 1.2") call SubQuit() end if Cache=chr(34) & Cache & Chr(34) Verlauf=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History") if Verlauf="" or len(Verlauf)<5 then ciao=msgbox ("Cleaner kann aus Sicherheitsgründen nicht fortsetzen." _ & chr(13) & "Der Pfad für den IE-Verlauf ist nicht korrekt." _ & chr(13) & Verlauf,1,"pcwVistaCleaner 1.2") call SubQuit() end if verlauf=chr(34) & verlauf & chr(34) WinRecent=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Recent") if WinRecent="" or len(WinRecent)<5 then ciao=msgbox ("Cleaner kann aus Sicherheitsgründen nicht fortsetzen." _ & chr(13) & "Der Pfad für die Recent-Links ist nicht korrekt." _ & chr(13) & WinRecent,1,"pcwVistaCleaner 1.2") call SubQuit() end if WinRecent = chr(34) & WinRecent & chr(34) Cookies=MyShell.RegRead(csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cookies") if Cookies="" or len(Cookies)<5 then ciao=msgbox ("Cleaner kann aus Sicherheitsgründen nicht fortsetzen." _ & chr(13) & "Der Pfad für die Web-Cookies ist nicht korrekt." _ & chr(13) & Cookies,1,"pcwVistaCleaner 1.2") call SubQuit() end if Cookies = chr(34) & Cookies & chr(34) msg(0)="Umfangreiche Vorreinigung mit der XP-Datenträgerbereinigung" _ & chr(13) & "Dies entspricht dem Befehl Cleanmgr /sageset:0024 mit allen dort angebotenen Optionen:" _ & chr(13) & chr(13) & "temporäre Dateien, temporäre Setupdateien, temporäre Internetdateien" _ & chr(13) & "Logdateien, Fehlerberichte, Speicher-Dumps, Checkdisk-Fragmente" _ & chr(13) & "Papierkorb, vorherige Windows-Version (\windows.old), Miniaturansichten" _ & chr(13) & chr(13) & "[Aktion betrifft sowohl das User-Konto" _ & chr(13) & "als auch einige allgemeine Windows-Backupdateien.]" msg(1) = "*.tmp, *.chk, *.old, ~*.???, Iconcache.DB, Thumbs.DB" _ & chr(13) & "auf " & alldrives & " löschen" _ & chr(13) & chr(13) & "[Aktion betrifft alle User]" msg(2)="Sicherungskopie*.*, *.wbk, *.bak, *.xlk" & chr(13) & "auf " & alldrives & " löschen"_ & chr(13) & chr(13) & "[Nur empfohlen bei regelmäßigen Backups]" _ & chr(13) & chr(13) & "[Aktion betrifft alle User]" msg(3)="Word-Backupdateien *.wbk,*.tmp unter " _ & chr(13) & WordBackup & " löschen" _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(4)="Office-Recent-Links löschen" & chr(13) & OfficeRecent _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(5)="Alle Daten der %TEMP%-Ordner löschen:" & chr(13) & chr(13) & Tempdir & chr(13) & Systemp _ & chr(13) & chr(13) & "[Aktion betrifft Temp-Ordner des aktuellen User und System-Temp-Ordner]" msg(6)="Temporary Internet Files löschen" _ & chr(13) & "Cache des IE-Browsers unter" _ & chr(13) & Cache _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(7)="IE-Verlauf löschen" & chr(13) & Verlauf _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(8)="Dokumentenlinks unter " & chr(13) & WinRecent _ & chr(13) & "und aus der Registry löschen (RecentDocs)" _ & chr(13) & "Ein kleiner Teil dieser Links wird durch 'Start, Dokumente' repräsentiert." _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(9)="Getippte Web-Adressen des IE löschen (TypedURLs) " _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(10)="Protokoll von Klicks und Eingaben löschen (UserAssist)" _ & chr(13) & "[Explorer-Protokoll über Start-Menü, Favoriten, Desktop, 'Start, Ausführen']" _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(11)="Eingaben unter 'Start, Ausführen' (RunMRU) " _ & chr(13) & "sowie im allgemeinen 'Öffnen/Speichern'-Dialog" _ & chr(13) & "(Common Dialogue-MRU für Notepad & Co.) löschen" _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(12)="Gespeicherte Eingaben des Suchen-Dialogs löschen (DOC Find Spec MRU)"_ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(13)="Beschreibungen und Einträge verbundener Netzlaufwerke löschen" _ & chr(13) & "ComputerDescriptions und Map Network Drive MRU" _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(14)="Cookies löschen" & chr(13) & Cookies _ & chr(13) & chr(13) & "Cookies speichern Anmeldeinformationen von Web-Seiten" _ & chr(13) & "[Löschen nicht empfohlen]" _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(15)="Alle gespeicherten Ordneransichten des Explorers löschen" _ & chr(13) & "Bags, Streams und StreamMRU" _ & chr(13) & chr(13) & "Alle Ordner (Desktop, Arbeitsplatz etc.) werden zurückgesetzt." _ & chr(13) & "Existierende Symbolleisten bleiben erhalten."_ & chr(13) & chr(13) & "[Nur empfohlen bei ernsten Ordneransichts-Problemen]" _ & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(16)="Alle gespeicherten Web-Formularfelder löschen (Suchmaschinen, Online-Banking...) " & chr(13) & "Protected Storage System Provider" _ & chr(13) & chr(13) & "Achtung: A L L E getätigten Web-Eingaben gehen verloren!" _ & chr(13) & "[Gespeicherte Login-Namen, Kennwörter, Überweisungsempfänger, Sucheingaben, etc.]" _ & chr(13) & chr(13) & "Wenn Sie sich nicht sicher sind, klicken Sie besser auf 'Nein'." _ & chr(13) & "Sie können unser spezialisiertes Tool pcwProtStorage verwenden," _ & chr(13) & "um gespeicherte Web-Daten im Detail zu überprüfen und einzeln zu löschen." _ & chr(13) & chr(13) & "[Aktion betrifft nur das User-Konto]" msg(17)="Alle Dateien im Papierkorb auf " & alldrives & " löschen" _ & chr(13) & chr(13) & "Dies löscht den Papierkorb A L L E R Konten!" _ & chr(13) & "[Im Explorer zeigt der Papierkorb nur die Daten des aktuellen Users an." _ & chr(13) & " Beachten Sie, dass andere User sich eventuell über wiederherstellbare" _ & chr(13) & " Dateien aus dem Papierkorb freuen würden...]" _ & chr(13) & chr(13) & "[Aktion betrifft alle Konten]" msg(18)="Alle Dateien unter 'System Volume Information'" _ & chr(13) & "auf " & alldrives & " löschen" _ & chr(13) & chr(13) & "Dies löscht A L L E Sicherungen der Systemwiederherstellung!" _ & chr(13) & "Eventuelle Kataloge des Indexdienstes unter 'System Volume Information'" _ & chr(13) & "werden NICHT gelöscht, sofern der Indexdienst CISVC aktiv ist." _ & chr(13) & chr(13) & "[NICHT empfohlen: Sie können mit CleanMgr.EXE unter 'Weitere Optionen'" _ & chr(13) & " alle Wiederherstellungspunkte bis auf den letzten 'Bereinigen'.]" _ & chr(13) & chr(13) & "[Aktion betrifft alle Konten]" '========================================================================== Sub SubInitFenster on error resume next ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\CleanMgr") if ret = "1" then document.all.Item("CleanMgr").Checked = True else document.all.Item("CleanMgr").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\ComputerDescriptions") if ret = "1" then document.all.Item("ComputerDescriptions").Checked = True else document.all.Item("ComputerDescriptions").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Cookies") if ret = "1" then document.all.Item("Cookies").Checked = True else document.all.Item("Cookies").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\DOCFind") if ret = "1" then document.all.Item("DOCFind").Checked = True else document.all.Item("DOCFind").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\DocLink") if ret = "1" then document.all.Item("DocLink").Checked = True else document.all.Item("DocLink").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Iconcache") if ret = "1" then document.all.Item("Iconcache").Checked = True else document.all.Item("Iconcache").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\IE") if ret = "1" then document.all.Item("IE").Checked = True else document.all.Item("IE").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\KlickProt") if ret = "1" then document.all.Item("KlickProt").Checked = True else document.all.Item("KlickProt").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\ORecent") if ret = "1" then document.all.Item("ORecent").Checked = True else document.all.Item("ORecent").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Recycler") if ret = "1" then document.all.Item("Recycler").Checked = True else document.all.Item("Recycler").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\RunMRU") if ret = "1" then document.all.Item("RunMRU").Checked = True else document.all.Item("RunMRU").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Securecopy") if ret = "1" then document.all.Item("Securecopy").Checked = True else document.all.Item("Securecopy").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\SystemVolume") if ret = "1" then document.all.Item("SystemVolume").Checked = True else document.all.Item("SystemVolume").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Temp") if ret = "1" then document.all.Item("Temp").Checked = True else document.all.Item("Temp").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Tinet") if ret = "1" then document.all.Item("Tinet").Checked = True else document.all.Item("Tinet").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\TypedUrls") if ret = "1" then document.all.Item("TypedUrls").Checked = True else document.all.Item("TypedUrls").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Views") if ret = "1" then document.all.Item("Views").Checked = True else document.all.Item("Views").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\WBackup") if ret = "1" then document.all.Item("WBackup").Checked = True else document.all.Item("WBackup").Checked = False end if ret = "" ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\WEBFormular") if ret = "1" then document.all.Item("WEBFormular").Checked = True else document.all.Item("WEBFormular").Checked = False end if ret = "" window.resizeTo 550, 760 End Sub '========================================================================== Sub SubQuit Set myfiles = Nothing Set AppShell = Nothing Set myshell = Nothing Window.Close End Sub '========================================================================== Function high(objekt) objekt.style.background ="#00FF00" objekt.filters.alpha.finishopacity = 100 objekt.filters.alpha.opacity = 100 End Function '========================================================================== Function low(objekt) objekt.style.background ="#008000" objekt.filters.alpha.opacity = 100 objekt.filters.alpha.finishopacity = 40 End Function '========================================================================== Function high1(objekt) objekt.style.background ="#FF0000" objekt.filters.alpha.finishopacity = 100 objekt.filters.alpha.opacity = 100 End Function '========================================================================== Function low1(objekt) objekt.style.background ="#CC0000" objekt.filters.alpha.opacity = 100 objekt.filters.alpha.finishopacity = 40 End Function '========================================================================== sub IsAdmin (byval myname) myname=replace(myname,chr(34),"") Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount",,48) For Each objItem in colItems if objItem.Name=myname then sid=objItem.sid end if Next csid="HKEY_USERS\" & sid temp=myEnv("windir") & "\System32\cl-test.txt" on error resume next set testfile=myfiles.CreateTextFile(temp,,True) if err.number>0 then i=msgbox("Cleaner kann nicht fortsetzen."_ & chr(13) & chr(13) & "Kontoname ist " & myname _ & chr(13) & "Admin-Rechte geprüft - N I C H T vorhanden." _ & chr(13) & "Säuberungsbatch läuft über AT.EXE im Systemkontext." _ & chr(13) & "Dies setzt Administratorenrechte voraus." _ & chr(13) & chr(13) & "SID für dieses Konto: " _ & chr(13) & csid,64,"pcwCleaner 2.5: Abbruch - kein Admin-Konto!") call SubQuit() else Admin="Admin-Konto : JA" testfile.delete end if End Sub '========================================================================== Sub IsKillEXE () temp=pfad & ";" do i=instr(temp,";") if i = 0 then exit do ordner=left(temp,i-1) if right(ordner,1)="\" then ordner=left(ordner,len(ordner)-1) temp=mid(temp,i+1) datei=ordner & "\kill.exe" If (myFiles.FileExists(datei)) Then killer=datei End if datei=ordner & "\pcwkill.exe" If (myFiles.FileExists(datei)) Then killer=datei End if loop if killer="" then i=msgbox("Cleaner kann nicht fortsetzen."_ & chr(13) & chr(13) & "pcwKill.EXE wurde gesucht - N I C H T vorhanden." _ & chr(13) & "Kopieren Sie KILL.EXE oder pcwKill.EXE irgendwo" _ & chr(13) & "in den Systempfad (etwa unter \Windows oder Windows\System32)." _ & chr(13) & chr(13) & "Kontoname ist " & myname _ & chr(13) & "Admin-Rechte geprüft - vorhanden." _ & chr(13) & chr(13) & "SID für dieses Konto: " _ & chr(13) & csid,64,"pcwCleaner 2.5: Abbruch - keine (pcw)KILL.EXE!") call subquit() end if End Sub '========================================================================== Sub checkversion () on error resume next winos=MyShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") if winos="" then msgbox "Das Script läuft nicht unter Windows 9x.",64,"pcwCleaner 2.5" call SubQuit end if if instr(winos,"Vista")>0 then msgbox "Das Script läuft nicht unter Windows Vista." _ & chr(13) & chr(13) & "Verwenden Sie unter Vista den pcwVistaCleaner 1.2.",64,"pcwCleaner 2.5" call SubQuit end if end sub '========================================================================== Function SubShow(TheOption) if TheOption < 13 then msgbox msg(TheOption), vbInformation, "pcwCleaner 2.5: Konfiguration" else msgbox msg(TheOption), vbExclamation, "pcwCleaner 2.5: Konfiguration" end if end Function '========================================================================== Function RegSave(Param) if document.all.Item(Param).Checked = True then myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\" & Param, 1, "REG_SZ" else myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\" & Param, 0, "REG_SZ" end if end Function '========================================================================== Function SubRun on error resume next set ClearBatch = MyFiles.CreateTextFile(Batch, True) ClearBatch.writeline "@echo off" ClearBatch.writeline "mode con lines=25 cols=160" ClearBatch.writeline "color FC" ClearBatch.writeline "SET path=" & pfad ClearBatch.writeline "pushd " & chr(34) & "%~dp0" & chr(34) ClearBatch.writeline "pcwKill.EXE /F *xplore*" ClearBatch.writeline "Kill.EXE /F *xplore*" ClearBatch.writeline "pcwKill.EXE /F Rundll32.exe" ClearBatch.writeline "Kill.EXE /F Rundll32.exe" ClearBatch.writeline "fsutil behavior query disable8dot3 | find " & chr(34) & "1" & chr(34) ClearBatch.writeline "if errorlevel 1 (" ClearBatch.writeline " fsutil behavior set disable8dot3 1" ClearBatch.writeline " set 8dot3changed=1" ClearBatch.writeline ")" ClearBatch.writeline "ECHO REGEDIT4>" & chr(34) & myPath & "\pcwCleaner.REG" & chr(34) ClearBatch.writeline "ECHO. >>" & chr(34) & myPath & "\pcwCleaner.REG" & chr(34) if instr(winos,"XP") then ClearBatch.writeline "sc.exe stop SSDPSRV" ClearBatch.writeline "sc.exe stop webclient" ClearBatch.writeline "sc.exe stop lmhosts" ClearBatch.writeline "sc.exe stop spooler" end if ClearBatch.writeline "CLS." ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Cleaner startet..." ClearBatch.writeline "ECHO." 'Punkt 0 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\CleanMgr") if ret = "1" then dtb = dtb + 1 actions=actions & "XP-Datenträgerbereinigung ausführen" & VbCrLf & VbCrLf myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Active Setup Temp Folders\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Downloaded Program Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Hibernation File\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Internet Cache Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Memory Dump Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Offline Pages Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Old ChkDsk Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Previous Installations\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Recycle Bin\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Setup Log Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\System error memory dump files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\System error minidump files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Setup Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Sync Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Thumbnail Cache\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Upgrade Discarded Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting Archive Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting Queue Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting System Archive Files\StateFlags0024", 2, "REG_DWORD" myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting System Queue Files\StateFlags0024", 2, "REG_DWORD" ClearBatch.writeline "Cleanmgr.EXE /sagerun:0024" end if 'Punkt 1 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Iconcache") if ret = "1" then actions=actions & "Alle Temp-Dateien loeschen" & VbCrLf & "*.tmp. *.chk. ~*.???. *.old. Iconcache.DB. Thumbs.DB." & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO *** Loeschen von Temp-Dateien" ClearBatch.writeline "ECHO." for temp=1 to dnum ClearBatch.writeline "attrib.exe /s +h " & DL(temp) & ":\*.tmpl >NUL" ClearBatch.writeline "del /s /q " & DL(temp) & ":\*.tmp." ClearBatch.writeline "attrib.exe /s -h " & DL(temp) & ":\*.tmpl >NUL" ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.chk." ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\~*.???." ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.old." ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\IconCache.DB." ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\Thumbs.DB." Clearbatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" next end if 'Punkt 2 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Securecopy") if ret = "1" then actions=actions & "Alle Office-Sicherungskopien loeschen" & VbCrLf & "*.wbk. *.bak. *.xlk. Sicherungskopie*.*" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Suche und Loeschen der Office-Sicherungskopien" ClearBatch.writeline "ECHO." for temp=1 to dnum ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\Sicherungskopie*.*" ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.wbk." ClearBatch.writeline "attrib.exe /s +h " & DL(temp) & ":\opa*.bak >NUL" ClearBatch.writeline "del /s /q " & DL(temp) & ":\*.bak." ClearBatch.writeline "attrib.exe /s -h " & DL(temp) & ":\opa*.bak >NUL" ClearBatch.writeline "del /s /a: /f /q " & DL(temp) & ":\*.xlk." Next ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 3 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\WBackup") if ret = "1" then actions=actions & "Word-Backupordner loeschen" & VbCrLf & wordbackup & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen des Word-Backupordners" ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & WordBackup ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe -s -r -h *.*" ClearBatch.writeline " del /f /q *.wbk" ClearBatch.writeline " del /f /q *.tmp" ClearBatch.writeline " )" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 4 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\ORecent") if ret = "1" then actions=actions & "Recent-Liste von MS Office loeschen" & VbCrLf & "*.LNK unter " & OfficeRecent & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der Recent-Liste von MS Office" ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO " & OfficeRecent ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & OfficeRecent ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe -s -r -h *.*" ClearBatch.writeline " del /f /q *.lnk" ClearBatch.writeline " del /f /q *.url" ClearBatch.writeline " del index.dat" ClearBatch.writeline " )" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 5 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Temp") if ret = "1" then actions=actions & "%TEMP%-Ordner loeschen" & VbCrLf & tempDir & " " & systemp & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen des %TEMP%-Ordners (User)" ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO " & tempdir ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & tempdir ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe /s -s -r -h *.*" ClearBatch.writeline " del /s /f /q *.*" ClearBatch.writeline " rd /s /q ." ClearBatch.writeline " )" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen des %TEMP%-Ordners (System)" ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO " & systemp ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & systemp ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe /s -s -r -h *.*" ClearBatch.writeline " del /s /f /q *.*" ClearBatch.writeline " rd /s /q ." ClearBatch.writeline " )" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 6 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Tinet") if ret = "1" then actions=actions & "IE-Cache loeschen" & VbCrLf & Cache & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen des IE-Caches" ClearBatch.writeline "ECHO " & cache ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & Cache ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe /s -s -r -h *.*" ClearBatch.writeline " del /s /f /q *.*" ClearBatch.writeline " rd /s /q ." ClearBatch.writeline " )" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 7 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\IE") if ret = "1" then actions=actions & "IE-Verlauf loeschen" & VbCrLf & Verlauf & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen von " & Verlauf ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & Verlauf ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe /s -s -r -h *.*" ClearBatch.writeline " del /s /f /q *.*" ClearBatch.writeline " rd /s /q ." ClearBatch.writeline " )" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 8 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\DocLink") if ret = "1" then actions=actions & "Windows-Dokumenten-History loeschen" & VbCrLf & "*.LNK unter " & WinRecent & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der Dokumenten-History (Dateien)" ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & WinRecent ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe -s -r -h *.*" ClearBatch.writeline " del /f /q *.lnk" ClearBatch.writeline " del /f /q *.url" ClearBatch.writeline " )" ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs] >>pcwCleaner.REG" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 9 -------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\TypedUrls") if ret = "1" then actions=actions & "IE-Adress-Eingaben loeschen" & VbCrLf & "Registry - TypedURLs " & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der IE-Adresseingaben (Registry)" ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Internet Explorer\TypedURLs" ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Internet Explorer\TypedURLs] >>pcwCleaner.REG" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 10 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\KlickProt") if ret = "1" then actions=actions & "Explorer-Klick-History loeschen" & VbCrLf & "Registry - UserAssist " & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der UserAssist-Eintraege (umfangreiche Klick-History in der Registry)" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist" ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\UserAssist] >>pcwCleaner.REG" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 11 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\RunMRU") if ret = "1" then actions=actions & "MRU-Listen Start-Run und ComDlg32 loeschen" & VbCrLf & "Registry - OpenSaveMRU, LastVisitedMRU" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der MRU-Listen (Run und Comldg32 - Registry)" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU\" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\LastVisitedMRU\" ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\OpenSaveMRU] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32\LastVisitedMRU] >>pcwCleaner.REG" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 12 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\DocFind") if ret = "1" then actions=actions & "History des Suchen-Dialogs loeschen" & VbCrLf & "Registry - Doc Find Spec MRU" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der MRU-Liste des Suchen-Dialogs (Registry)" ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU] >>pcwCleaner.REG" ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 13 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\ComputerDescriptions") if ret = "1" then actions=actions & "Beschreibungen von Netzwerk-PCs loeschen" & VbCrLf & "Registry - Map Network Drive MRU" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der Computerbeschreibungen (Registry)" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\Map Network Drive MRU" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\ComputerDescriptions" ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Map Network Drive MRU] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\ComputerDescriptions] >>pcwCleaner.REG" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 14 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Cookies") if ret = "1" then actions=actions & "Cookies loeschen" & VbCrLf & Cookies& VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der Cookies (Dateien)" ClearBatch.writeline "ECHO " & Cookies ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "pushd " & Cookies ClearBatch.writeline "if not errorlevel 1 (" ClearBatch.writeline " attrib.exe /s -s -r -h *.*" ClearBatch.writeline " del /s /f /q *.*" ClearBatch.writeline " )" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 15 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Views") if ret = "1" then actions=actions & "Gespeicherte Ordneransichten loeschen" & VbCrLf & "Registry - Streams und Bags" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen aller Explorer-Ordneransichten (Registry)" ClearBatch.writeline "regedit.exe /a " & chr(34) & mypath & "\pcwBars.reg" & chr(34) & " " & chr(34) & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop" & chr(34) ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\ShellNoRoam\Bags" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\ShellNoRoam\BagMRU" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\Shell\Bags" ClearBatch.writeline "ECHO HKEY_Current_User\Software\Microsoft\Windows\Shell\Bags\BagMRU" ClearBatch.writeline "ECHO." ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\ShellNoRoam\Bags] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\ShellNoRoam\BagMRU] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\Shell\Bags] >>pcwCleaner.REG" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Windows\Shell\Bags\BagMRU] >>pcwCleaner.REG" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 16 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\WEBFormular") if ret = "1" then actions=actions & "Eingaben in Web-Formulare loeschen" & VbCrLf & "Registry - Protected Storage System Provider" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der Eingaben in Web-Formulare (Registry)" ClearBatch.writeline "ECHO HKEY_CURRENT_USER\Software\Microsoft\Protected Storage System Provider" ClearBatch.writeline "pushd %~dp0" ClearBatch.writeline "ECHO [-" & csid & "\Software\Microsoft\Protected Storage System Provider] >>pcwCleaner.REG" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 17 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\Recycler") if ret = "1" then actions=actions & "Papierkorb aller Konten loeschen" & VbCrLf & "Ordner \Recycler und \Recycled auf allen Laufwerken" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Komplettes Loeschen des Papierkorbs auf allen Laufwerken" ClearBatch.writeline "ECHO." for temp=1 to dnum svi=chr(34) & DL(temp) & ":\Recycler" & chr(34) ClearBatch.writeline "pushd " & svi ClearBatch.writeline "if /i " & chr(34) & "%CD%" & chr(34) & "==" & svi & " rd /s /q ." svi=chr(34) & DL(temp) & ":\Recycled" & chr(34) ClearBatch.writeline "pushd " & svi ClearBatch.writeline "if /i " & chr(34) & "%CD%" & chr(34) & "==" & svi & " rd /s /q ." next ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Punkt 18 ------------------------------------------------------------------------------- ret=0 ret = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\PC-WELT\pcwCleaner\SystemVolume") if ret = "1" then actions=actions & "Systemwiederherstellung loeschen" & VbCrLf & "Ordner \System Volume Information auf allen Laufwerken" & VbCrLf & VbCrLf ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO Loeschen der Systemwiederherstellung" for temp=1 to dnum svi=chr(34) & DL(temp) & ":\System Volume Information" & chr(34) ClearBatch.writeline "ECHO " & svi ClearBatch.writeline "pushd " & svi ClearBatch.writeline "if /i " & chr(34) & "%CD%" & chr(34) & "==" & svi & " rd /s /q ." next ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" end if 'Registry-Bereinigungen durchführen ClearBatch.writeline "pushd " & chr(34) & "%~dp0" & chr(34) ClearBatch.writeline "if exist pcwCleaner.REG regedit.exe /s " & chr(34) & mypath & "\pcwCleaner.REG" & chr(34) ClearBatch.writeline "if exist pcwBars.REG regedit.exe /s " & chr(34) & mypath & "\pcwBars.REG" & chr(34) ClearBatch.writeline "IF exist pcwCleaner.REG DEL /F pcwCleaner.REG" ClearBatch.writeline "IF exist pcwBars.REG DEL /F pcwBars.REG" ClearBatch.writeline "if (%8dot3changed%)==(1) fsutil behavior set disable8dot3 0" 'Dienste wieder starten if instr(winos,"XP") then ClearBatch.writeline "sc.exe start SSDPSRV" ClearBatch.writeline "sc.exe start webclient" ClearBatch.writeline "sc.exe start lmhosts" ClearBatch.writeline "sc.exe start spooler" end if ClearBatch.writeline "For %%n in (FC CF FC CF) do (" ClearBatch.writeline "CLS" ClearBatch.writeline "COLOR %%n" ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO." ClearBatch.writeline "ECHO +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+" ClearBatch.writeline "ECHO + +" ClearBatch.writeline "ECHO + Nach Beendigung der Batch startet nach wenigen +" ClearBatch.writeline "ECHO + Sekunden automatisch wieder der Windows-Explorer. +" ClearBatch.writeline "ECHO + Sie koennen dann die Windows-Sitzung fortsetzen. +" ClearBatch.writeline "ECHO + +" ClearBatch.writeline "ECHO +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+" ClearBatch.writeline "ECHO." ClearBatch.writeline "Ping.exe -n 2 localhost > NUL" ClearBatch.writeline ")" Clearbatch.Writeline "pushd %~dp0" Clearbatch.Writeline "del /F pcwCleaner.cmd" Clearbatch.Writeline "del /F pcwCleaner*.log" ClearBatch.close set ClearBatch=myFiles.OpentextFile(batch) batchcode=ClearBatch.Readall ClearBatch.Close 'LogFile schreiben logfile=replace(now(),":","-") logfile=replace(logfile,".","-") logfile=myPath & "\pcwCleaner[" & logfile & "].LOG" set Lf = MyFiles.CreateTextFile(logfile, True) Lf.writeline "System : " & winos Lf.writeline "Profilpfad : " & userprofile Lf.writeline "Profilname : " & myname Lf.writeline "Konto-ID : " & csid Lf.writeline admin Lf.writeline "Pfad der HTA : " & mypath Lf.writeline "Pfad der Batch: " & batch Lf.writeline "Task-Killer : " & killer Lf.writeline "Laufwerke : " & alldrives Lf.writeline "" Lf.write actions Lf.writeline "----------------------------- Batchcode ------------------------------" lf.write batchcode LF.Close 'LogFile anzeigen und User um OK fragen ret=MyShell.run("notepad.exe " & chr(34) & logfile & chr(34),4,False) temp=msgbox ("Säuberung gemaess angezeigter Log-Datei ausführen?" _ & chr(13) & chr(13) & "Die Säuberung startet nach 'OK' " _ & chr(13) & "und nach kurzer W A R T E Z E I T zur" _ & chr(13) & "N Ä C H S T E N V O L L E N M I N U T E im Systemkontext." _ & chr(13) & chr(13) & "Dabei werden Explorer und ggf. Internet Explorer beendet." _ & chr(13) & "Um gesperrte Dateien zu vermeiden, sollten weitere " _ & chr(13) & "laufende Anwendungen jetzt manuell beendet werden."_ & chr(13) & chr(13) & "Beenden Sie nicht den blauen Konfigurationsdialog des Cleaners:"_ & chr(13) & "Dieser startet am Ende den Explorer neu...",257,"pcwCleaner 2.5") if temp=2 then 'Einträge der Datenträgerbereinigung wieder zurücksetzen if dtb > 0 then myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Active Setup Temp Folders\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Downloaded Program Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Hibernation File\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Internet Cache Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Memory Dump Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Offline Pages Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Old ChkDsk Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Previous Installations\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Recycle Bin\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Setup Log Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\System error memory dump files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\System error minidump files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Setup Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Sync Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Thumbnail Cache\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Upgrade Discarded Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting Archive Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting Queue Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting System Archive Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting System Queue Files\StateFlags0024" end if set LF = MyFiles.GetFile(logfile) LF.delete set LF = MyFiles.GetFile(batch) LF.delete call subquit() else ret=MyShell.run("control.exe timedate.cpl",1,False) end if 'Zeit für den AT-Befehl stellen atzeit=left(timeserial(hour(now),minute(now)+1,second(now)+5),5) 'Aufruf der Clean-Batch per AT-Befehl ret=MyShell.Run("at.exe " & atzeit & " /interactive cmd.exe /c " & chr(34) & batch & chr(34),0,True) 'Warten auf Abschluss der Cleanbatch do ret=MyShell.Run("Ping.exe -n 6 localhost",0,TRUE) loop while MyFiles.FileExists(batch) 'Meldung über gewonnenen Speicherplatz Set mydrives=myFiles.drives for each temp in mydrives if temp.drivetype=1 or temp.drivetype=2 or temp.drivetype=5 then if ucase(temp.driveLetter) <> "A" and ucase(temp.driveLetter) <> "B" then AtEndFree=AtEndFree + temp.FreeSpace end if end if next differenz=AtEndFree-AtStartFree if differenz<0 then differenz = 0 ret=myShell.popup ("Insgesamt gelöschte Bytes: " & Formatnumber(differenz,0) _ & chr(13) & chr(13) & "Explorer startet in wenigen Sekunden automatisch neu...",10,"pcwCleaner 2.5") 'Explorer nach Abschluss der Batch wieder starten ret=MyShell.Run("explorer.exe") 'Einträge der Datenträgerbereinigung wieder zurücksetzen if dtb > 0 then myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Active Setup Temp Folders\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Downloaded Program Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Hibernation File\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Internet Cache Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Memory Dump Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Offline Pages Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Old ChkDsk Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Previous Installations\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Recycle Bin\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Setup Log Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\System error memory dump files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\System error minidump files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Setup Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Temporary Sync Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Thumbnail Cache\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Upgrade Discarded Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting Archive Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting Queue Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting System Archive Files\StateFlags0024" myshell.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\explorer\VolumeCaches\Windows Error Reporting System Queue Files\StateFlags0024" end if call subquit() End Function '========================================================================== Function MarkSelection(TheOption) End function '========================================================================== </SCRIPT> <BODY SCROLL="no" ONLOAD="SubInitFenster"> <TABLE WIDTH=100% BORDER=0 CELLPADDING=4 CELLSPACING=2> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('0')" name="ShowHelp0" Value=" ? " onMouseOver="high(ShowHelp0)" onMouseOut="low(ShowHelp0)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=CleanMgr Type="checkbox" OnClick="RegSave('CleanMgr')"> </TD> <TD WIDTH=90%> <Input ID=CDesklabel Class="Label" Type=text Value="XP-Datenträgerbereinigung mit allen Optionen ausführen (Vorwaschgang)" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('1')" name="ShowHelp1" Value=" ? " onMouseOver="high(ShowHelp1)" onMouseOut="low(ShowHelp1)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=Iconcache Type="checkbox" OnClick="RegSave('Iconcache')"> </TD> <TD WIDTH=90%> <Input Class="Label" ID=Iconlabel Type=text Value="*.tmp, *.chk, *.old, ~*.???, Iconcache.DB, Thumbs.DB löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('2')" name="ShowHelp2" Value=" ? " onMouseOver="high(ShowHelp2)" onMouseOut="low(ShowHelp2)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=Securecopy Type="checkbox" OnClick="RegSave('Securecopy')"> </TD> <TD WIDTH=90%> <Input Class="Label" ID=Securelabel Type=text Value="Sicherungskopien, *.wbk, *.bak, *.xlk löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('3')" name="ShowHelp3" Value=" ? " onMouseOver="high(ShowHelp3)" onMouseOut="low(ShowHelp3)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=WBackup Type="checkbox" OnClick="RegSave('WBackup')"> </TD> <TD WIDTH=90%> <Input ID=Wlabel Class="Label" Type=text Value="Word-Backupdateien *.wbk,*.tmp löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('4')" name="ShowHelp4" Value=" ? " onMouseOver="high(ShowHelp4)" onMouseOut="low(ShowHelp4)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=ORecent Type="checkbox" OnClick="RegSave('ORecent')"> </TD> <TD WIDTH=90%> <Input ID=Olabel Class="Label" Type=text Value="Office-Recent-Links löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('5')" name="ShowHelp5" Value=" ? " onMouseOver="high(ShowHelp5)" onMouseOut="low(ShowHelp5)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=Temp Type="checkbox" OnClick="RegSave('Temp')"> </TD> <TD WIDTH=90%> <Input ID=Templabel Class="Label" Type=text Value="Alle Daten im %TEMP%-Ordner löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('6')" name="ShowHelp6" Value=" ? " onMouseOver="high(ShowHelp6)" onMouseOut="low(ShowHelp6)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=Tinet Type="checkbox" OnClick="RegSave('Tinet')"> </TD> <TD WIDTH=90%> <Input ID=Tinetlabel Class="Label" Type=text Value="Temporary Internet Files löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('7')" name="ShowHelp7" Value=" ? " onMouseOver="high(ShowHelp7)" onMouseOut="low(ShowHelp7)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=IE Type="checkbox" OnClick="RegSave('IE')"> </TD> <TD WIDTH=90%> <Input ID=IElabel Class="Label" Type=text Value="IE-Verlauf löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('8')" name="ShowHelp8" Value=" ? " onMouseOver="high(ShowHelp8)" onMouseOut="low(ShowHelp8)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=DocLink Type="checkbox" OnClick="RegSave('DocLink')"> </TD> <TD WIDTH=90%> <Input ID=Doclabel Class="Label" Type=text Value="Dokumentenlinks löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('9')" name="ShowHelp9" Value=" ? " onMouseOver="high(ShowHelp9)" onMouseOut="low(ShowHelp9)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=TypedUrls Type="checkbox" OnClick="RegSave('TypedUrls')"> </TD> <TD WIDTH=90%> <Input ID=Typedlabel Class="Label" Type=text Value="Getippte Web-Adressen des IE löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('10')" name="ShowHelp10" Value=" ? " onMouseOver="high(ShowHelp10)" onMouseOut="low(ShowHelp10)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=KlickProt Type="checkbox" OnClick="RegSave('KlickProt')"> </TD> <TD WIDTH=90%> <Input ID=Klicklabel Class="Label" Type=text Value="Protokoll von Klicks und Eingaben löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('11')" name="ShowHelp11" Value=" ? " onMouseOver="high(ShowHelp11)" onMouseOut="low(ShowHelp11)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=RunMRU Type="checkbox" OnClick="RegSave('RunMRU')"> </TD> <TD WIDTH=90%> <Input ID=Runlabel Class="Label" Type=text Value="Eingaben unter 'Start, Ausführen' sowie im 'Öffnen/Speichern'-Dialog löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('12')" name="ShowHelp12" Value=" ? " onMouseOver="high(ShowHelp12)" onMouseOut="low(ShowHelp12)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=DOCFind Type="checkbox" OnClick="RegSave('DOCFind')"> </TD> <TD WIDTH=90%> <Input ID=DocFindlabel Class="Label" Type=text Value="Gespeicherte Eingaben des Suchen-Dialogs löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button" OnClick="SubShow('13')" name="ShowHelp13" Value=" ? " onMouseOver="high(ShowHelp13)" onMouseOut="low(ShowHelp13)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=ComputerDescriptions Type="checkbox" OnClick="RegSave('ComputerDescriptions')"> </TD> <TD WIDTH=90%> <Input ID=CDesklabel Class="Label" Type=text Value="Beschreibungen und Einträge verbundener Netzlaufwerke löschen" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button1" OnClick="SubShow('14')" name="ShowHelp14" Value=" ? " onMouseOver="high1(ShowHelp14)" onMouseOut="low1(ShowHelp14)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=Cookies Type="checkbox" OnClick="RegSave('Cookies')"> </TD> <TD WIDTH=90%> <Input ID=Cookieslabel Class="Label" Type=text Value="Cookies löschen - ACHTUNG" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button1" OnClick="SubShow('15')" name="ShowHelp15" Value=" ? " onMouseOver="high1(ShowHelp15)" onMouseOut="low1(ShowHelp15)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=Views Type="checkbox" OnClick="RegSave('Views')"> </TD> <TD WIDTH=90%> <Input ID=Viewslabel Class="Label" Type=text Value="Alle gespeicherten Ordneransichten des Explorers löschen - ACHTUNG" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button1" OnClick="SubShow('16')" name="ShowHelp16" Value=" ? " onMouseOver="high1(ShowHelp16)" onMouseOut="low1(ShowHelp16)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=WEBFormular Type="checkbox" OnClick="RegSave('WEBFormular')"> </TD> <TD WIDTH=90%> <Input ID=WEBlabel Class="Label" Type=text Value="Alle gespeicherten Web-Formularfelder löschen - ACHTUNG" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button1" OnClick="SubShow('17')" name="ShowHelp17" Value=" ? " onMouseOver="high1(ShowHelp17)" onMouseOut="low1(ShowHelp17)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=Recycler Type="checkbox" OnClick="RegSave('Recycler')"> </TD> <TD WIDTH=90%> <Input ID=Recyclerlabel Class="Label" Type=text Value="Alle Dateien im Papierkorb löschen - ACHTUNG" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> <Input Type="button" Class="Button1" OnClick="SubShow('18')" name="ShowHelp18" Value=" ? " onMouseOver="high1(ShowHelp18)" onMouseOut="low1(ShowHelp18)" Title="Zeigt mehr Informationen zur Option an"> </TD> <TD WIDTH=5%> <INPUT Name=SystemVolume Type="checkbox" OnClick="RegSave('SystemVolume')"> </TD> <TD WIDTH=90%> <Input ID=SystemVolumelabel Class="Label" Type=text Value="Alle Dateien unter 'System Volume Information' löschen - ACHTUNG" Size=120 READONLY> </TD> </TR> <TR> <TD WIDTH=5%> </TD> <TD WIDTH=5%> </TD> <TD WIDTH=90%> <Input Type="button" Class="Button" OnClick="SubRun" name="checkit" Value="Clean-Vorgang starten" onMouseOver="high(checkit)" onMouseOut="low(checkit)" Title="Startet den pcwCleaner mit den getroffenen Einstellungen"/> <Input Type="button" Class=Button OnClick="SubQuit" Name="Ende" Value="Quit" onMouseOver="high(Ende)" onMouseOut="low(Ende)" Title="Beendet das Tool"/> </TD> </TR> </TABLE> </BODY> </HTML>
