dim iEventCode
iEventCode = 0

if (Wscript.Arguments.Count = 1) then
	iEventCode = Wscript.Arguments(0)
end if

'BEGIN CALLOUT A
dim sMessage
Set EventSet = GetObject("winmgmts:").ExecQuery _
	("select * from Win32_NTLogEvent where EventCode=" & _
	iEventCode)
'END CALLOUT A

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

for each LogEvent in EventSet
	sMessage = "Event Number: " & LogEvent.RecordNumber & chr(13)
	sMessage = sMessage & 	"Log File: " & LogEvent.LogFile & chr(13)
	sMessage = sMessage & 	"Type: " & LogEvent.Type  & chr(13)
	sMessage = sMessage & 	"Message: " & LogEvent.Message & chr(13)
	sMessage = sMessage & 	"Time: " & LogEvent.TimeGenerated & chr(13)
	WScript.Echo sMessage
Next