Вывод всех событий с определенным номером из журналов событий

EventCode = 1003
provider = Win32_NTLogEvent
Query = "select * from Win32_NTLogEvent where EventCode=" & EventCode
Set EventSet = GetObject("winmgmts:").ExecQuery(query)

if (EventSet.Count = 0) then WScript.Echo "No Events"

for each LogEvent in EventSet
	WScript.Echo "Event Number: " & LogEvent.RecordNumber
	WScript.Echo "Log File: " & LogEvent.LogFile
	WScript.Echo "Type: " & LogEvent.Type 
	WScript.Echo "Message: " & LogEvent.Message
	WScript.Echo "Time: " & LogEvent.TimeGenerated
	WScript.Echo ""
Next