oder versuche doch das "like" anders zu formulieren, so ähnlich wie in der Doku gefunden:
Const CONVERT_TO_LOCAL_TIME = True
Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")
Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")
DateToCheck = CDate("1/18/2005")
dtmStartDate.SetVarDate DateToCheck, CONVERT_TO_LOCAL_TIME
dtmEndDate.SetVarDate DateToCheck + 1, CONVERT_TO_LOCAL_TIME
''''' Hier zu scannende Pcs eintragen
arrayComputer = Array(".")
Dim objFileSystem, objOutputFile
Dim strOutputFile
' generate a filename base on the script name
strOutputFile = "./" & Split(WScript.ScriptName, ".")(0) & ".html"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
objOutputFile.WriteLine("<html><body>")
ownYear= DatePart ("yyyy", Now)
ownMonth=DatePart("m", Now)
ownday= DatePart("d", Now)
' ownDate=right("00" & ownYear, 4) & right("00" & ownMonth, 2) & right("00" & ownDay, 2)
ownDate=("%2%")
For Each strComputer In arrayComputer
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where (EventType=1 OR EventType=2 OR EventType=5) AND TimeWritten >= '" & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'")
objOutputFile.WriteLine(strComputer & "<br><table border=1>")
For Each objDisk in colDisks
objOutputFile.WriteLine("<tr><td><img src='" & objDisk.Type & ".jpg'>" & "</td><td>" & objDisk.CategoryString & "</td><td>" & objDisk.EventCode & " </td><td> " & objDisk.EventIdentifier & " </td><td> " & objDisk.Logfile & " </td><td> " & objDisk.Message & " </td><td> " & objDisk.RecordNumber & " </td><td> " & objDisk.SourceName & " </td><td> " & objDisk.TimeWritten & " </td><td> " & objDisk.User & "</td></tr>")
Next
objOutputFile.WriteLine("</table>")
objOutputFile.WriteLine("</body></html>")
objOutputFile.Close
Set objFileSystem = Nothing
WScript.Quit(0)
Next