Script for event log backup

Simple script to do the event log backup using wevtutil, this is an unpolished script, please use it with care. wevutil is supported on Windows 2008 and Windows Vista.

'Backup event log script

'Get the current date and time
CurrentDate = now

sAcceptableChars = "abcdefghijklmnopqrstuvwxyz0123456789"

'Remove "/", ":", " " from CurrentDate and put it
'in FixDate

For x = 1 to Len(CurrentDate)
ch = mid(CurrentDate, x, 1)
If InStr(sAcceptableChars, LCase(ch)) > 0 Then
FixDate = FixDate & ch
End If
Next

Set wshShell = WScript.CreateObject ("WSCript.shell")

'Start to do event log backup

wshshell.run "C:\Windows\System32\wevtutil cl _
Application /bu:E:\AppEvent_" & FixDate & ".evt", 1, True

wshshell.run "C:\Windows\System32\wevtutil cl Security _
/bu:E:\SecurityEvent_" & FixDate & ".evt", 1, True

wshshell.run "C:\Windows\System32\wevtutil cl Setup _
/bu:E:\SetupEvent_" & FixDate & ".evt", 1, True

wshshell.run "C:\Windows\System32\wevtutil cl System _
/bu:E:\SystemEvent_" & FixDate & ".evt", 1, True

set wshshell = nothing