echo off
REM
REM Dieses Script löscht die temporären Internetdateien
REM und erstellt eine Datei "C:\defrag.log" welche feststellt,
REM ob defragmentiert werden muss und tut dies gegebenen.
REM Von: 	Charly Reber 
REM Firma:	JPAG
REM
 
del /F /S /Q "C:\Dokumente und Einstellungen\%USERNAME%\Lokale" & _
  "Einstellungen\Temporary Internet Files"
del /F /S /Q "C:\Dokumente und Einstellungen\%USERNAME%\Lokale" & _
"Einstellungen\Temp"
 
REM Ab hier wird die Defragmentierung behandelt.
 
 
defrag C: -v -a > C:\defrag.log
if %ERRORLEVEL%==1 GOTO ERRLOG
eventlog.vbs -r
if %ERRORLEVEL%==1 GOTO ERR
 
 
findstr "Das Volume muss nicht defragmentiert werden." C:\defrag.log
if %ERRORLEVEL%==0 GOTO DEFRAG
GOTO EXIT
 
 
:DEFRAG
defrag C: -f
if %ERRORLEVEL%==1 GOTO ERRDEF
eventlog.vbs -s 
GOTO EXIT
 
 
:ERRDEF
eventlog.vbs -e
echo Die Defragmentierung war Fehlerhaft.
del /F /S /Q "C:\defrag.log"
pause
 
 
:ERRLOG
echo Die Logdatei konnte nicht erstellt werden.
echo Überprüfen Sie bitte, ob Sie Schreibrechte
echo haben.
pause
 
 
:ERR
echo Die Datei eventlog.vbs wurde nicht gefunden!
pause
 
 
:EXIT
del /F /S /Q "C:\defrag.log"
exit

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Const read = 1, write = 2
Dim r, readall, strParam
 
strParam = WScript.Arguments.Item(0) 'Übergabe der Parameter an die Variable
 
Sub readlog()
Set r = fso.OpenTextFile("c:\defrag.log", read)
readall = r.ReadAll
WshShell.LogEvent 4, readall 'Eventlog Eintrag mit der Überprüfung
r.close
End Sub
 
Sub errdef()
WshShell.LogEvent 1, "Defragmentierung war Fehlerhaft." 'Eventlog Eintrag mit 
' einem Fehler der Defragmentierung
End Sub
 
Sub succdef()
WshShell.LogEvent 0, "Defragmentierung war erfolgreich." 'Eventlog Eintrag mit 
' der Überprüfung
End Sub
 
Select Case strParam
	Case "-r" readlog
	Case "-e" errdef
	Case "-s" succdef
	Case Else MsgBox "Ungültiger Parameter."
End Select