SELECT TOP 10 * FROM Win32_Process;
SELECT * FROM Win32_Process LIMIT 0,10;
|
|
|
Set oSink = WScript.CreateObject("wbemscripting.swbemsink","sink_")
Set oSvc = GetObject("winmgmts:root\cimv2")
bdone = False
osvc.ExecQueryAsync oSink, "SELECT * FROM Win32_Process"
While not bdone
wscript.sleep 1000
wend
Sub sink_OnObjectReady(oInst, octx)
WScript.Echo "Got Instance: " & oInst.Name
end sub
Sub sink_OnCompleted(HResult, oErr, oCtx)
WScript.Echo "ExecQueryAsync completed"
bdone = true
end sub
|
|
|
