|
Asynchronous WMI operations
Asynchronous WMI operations
Dim bDone, numEventsInspected
Dim strComputer
Do
strComputer = inputbox( "Please enter computername (or . for local host)", "Input" )
Loop until strComputer <> ""
CheckEventLog strComputer, "System"
Function CheckEventLog( strComputer, strLogFile )
Dim objWMIService, objSink
bDone = False
numEventsInspected = 0
Set objWMIService = GetObject ("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objSink = CreateObject ("WbemScripting.SWbemSink","SINK_")
objWMIService.ExecQueryAsync objSink,"Select * from Win32_NTLogEvent where LogFile='" & strLogFile & "'"
While Not bDone
WScript.Sleep 1000
Wend
End Function
' Sub sink_onCompleted used by CheckEventLog
Sub sink_onCompleted( HResult,oErr,oCtx )
bDone=True
End Sub
' Sub sink_onObjectReady used by CheckEventLog
Sub sink_onObjectReady( e, octx )
WScript.Echo e.SourceName
numEventsInspected = numEventsInspected + 1
End Sub
|
|
Essentials
