大哥,我用的是VB6.0,引用的WMI 1.2版本的lib
Sub ExecQueryAsync(objWbemSink As Object, strQuery As String, [strQueryLanguage As String = "WQL"], [lFlags As Long], [objWbemNamedValueSet As Object], [objWbemAsyncContext As Object])
大哥,我用的是VB6.0,引用的WMI 1.2版本的lib
Sub ExecQueryAsync(objWbemSink As Object, strQuery As String, [strQueryLanguage As String = "WQL"], [lFlags As Long], [objWbemNamedValueSet As Object], [obj ...
我的例子是教你使用 SWbemSink 类吧?
Private WithEvents objSink As SWbemSink
set objSink = new SWbemSink '请注意。 Call objWMIService.ExecQueryAsync _ (objSink, "Select * from Win32_Service where Name='Alerter'")