VB Script สำหรับ export Event Log ของ Windows XP

dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "-" & dtmThisMonth & "-" & dtmThisDay & " "

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=imper

sonate, (Backup, Security)}!\\" _
& strComputer & "\root\cimv2")

Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile")

For Each objLogfile in colLogFiles
If objLogFile.FileSize <> 100000 Then
strBackupLog = objLogFile.BackupEventLog _
("D:\Eventlogs\" & strBackupName & objLogFile.LogFileName & ".evt")
objLogFile.ClearEventLog()
End If
Next

เซฟทั้งหมดลงไฟล์ ชื่ออะไรก็ได้.vbs มันเรียกใช้งานมันจะไปเซฟ Event log ทุกหมวดไว้ที่
D:\Eventlogs\