You are here:
ActiveXperts.com > Administration > Scripts > WMI > VBScript > Asynchronous WMI operations
ActiveXperts Network Monitor ships with a large collection of WMI based PowerShell scripts and VBScript scripts to monitor and manage a network.
Use ActiveXperts Netork Monitor to monitor your virtualization servers, domains, computers and devices. It runs on a single Windows server, without agents required on the monitored systems. It has many built-in checks and also allows administrators to create custom checks using PowerShell, VBScript, WMI and SSH.
Asynchronous WMI operations - WMI sample in VBScript
The foundations for Manageability in Windows 7/2008/Vista/XP/2000 and Millennium Edition/'98 are Windows Management Instrumentation (WMI; formerly WBEM) and WMI extensions for Windows Driver Model (WDM).
ActiveXperts Network Monitor provides the ability to build monitor check routines based on WMI. ActiveXperts has collected more than a hundred WMI samples. You can use these samples as a base for new check routines you can write yourself.
On this site, you can find many WMI samples.
The Asynchronous WMI operations WMI class can be used in ActiveXperts Network Monitor to monitor your servers.
Asynchronous WMI operations
Description
ActiveXperts Network Monitor ships with a large collection of WMI based PowerShell scripts and VBScript scripts to monitor and manage a network.Use ActiveXperts Netork Monitor to monitor your virtualization servers, domains, computers and devices. It runs on a single Windows server, without agents required on the monitored systems. It has many built-in checks and also allows administrators to create custom checks using PowerShell, VBScript, WMI and SSH.
Example(s)
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