Chapter 11: Using Operating System Classes 249
errBackupLog = objItem.BackupEventLog(strLogFolder & strFile)
If errBackupLog <> 0 Then
Wscript.Echo errBackupLog & strMSG
Else
objItem.ClearEventLog()
WScript.echo
"event log was backed up."
End If
Next
Sub subCreateFileName
dim wmiQuery ' recycled variable. Same name outside.
Dim strDate ' only used in sub
Dim strName ' only used in sub
wmiQuery = "select
domain from win32_computerSystem"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.execQuery(wmiQuery)
For Each objItem in colItems
strName = objItem.name
strName = strName & "." & objItem.domain
Next
strDate = Replace
(cstr(Date), "/", "_")
strLog = Replace (strLOG, "'", "_")
strFile ...