WMIcha询遇到问题

信易达

已知精易模块中 cha询类属性(未公开的子程序) 是这样的，那么如何根据 精易模块中 cha询类属性(未公开的子程序) 改写下附件里的程序，让它效率变高一些呢？

  

子程序名	返回值类型	公开	备 注
cha询类属性	变体型		ExecQuery
参数名	类 型	参考	可空	数组	备 注
wSql语句	文本型				如“Select * From Win32_OperatingSystem”
属性名称	文本型				如属性名“BuildNumber”

变量名	类 型	静态	数组	备 注
pWbemServices	整数型
hresult	整数型
ppObject	整数型
pEnumerator	整数型
var	变体型
p*Ftched	整数型
strQueryLanguage	整数型			/* [in] */ __RPC__in const BSTR
strQuery	整数型			/* [in] */ __RPC__in const BSTR
wszName	整数型

pWbemServices ＝ COM_连接命名空间 (“root\CIMV2”)
如果真 (pWbemServices ＞ 0)
strQueryLanguage ＝ COM_bstr_t (“WQL”)
strQuery ＝ COM_bstr_t (wSql语句)
hresult ＝ IWbemServices_ExecQuery (pWbemServices, strQueryLanguage, strQuery, 位或 (32, 16), 0, pEnumerator)
如果真 (hresult ＝ 0)
循环判断首 ()
hresult ＝ IEnumWbemClassObject_Next (pEnumerator, 2000, 1, ppObject, p*Ftched)
如果真 (hresult ＝ 0)
wszName ＝ COM_bstr_t (属性名称)
hresult ＝ IWbemClassObject_Get (ppObject, wszName, 0, 取变体型指针 (var), 0, 0)
SysFreeString (wszName)
COM_Release (ppObject)

循环判断尾 (p*Ftched ＝ 1)
COM_Release (pEnumerator)
COM_Release (pWbemServices)
SysFreeString (strQueryLanguage)
SysFreeString (strQuery)
返回 (var)

.版本 2<br /> <br /> .子程序 cha询类属性, 变体型, , ExecQuery<br /> .参数 wSql语句, 文本型, , 如“Select * From Win32_OperatingSystem”<br /> .参数 属性名称, 文本型, , 如属性名“BuildNumber”<br /> .局部变量 pWbemServices, 整数型<br /> .局部变量 hresult, 整数型<br /> .局部变量 ppObject, 整数型<br /> .局部变量 pEnumerator, 整数型<br /> .局部变量 var, 变体型<br /> .局部变量 p*Ftched, 整数型<br /> .局部变量 strQueryLanguage, 整数型, , , /* [in] */ __RPC__in const BSTR<br /> .局部变量 strQuery, 整数型, , , /* [in] */ __RPC__in const BSTR <br /> .局部变量 wszName, 整数型<br /> <br /> pWbemServices ＝ COM_连接命名空间 (“root\CIMV2”)<br /> .如果真 (pWbemServices ＞ 0)<br />     strQueryLanguage ＝ COM_bstr_t (“WQL”)<br />     strQuery ＝ COM_bstr_t (wSql语句)<br />     hresult ＝ IWbemServices_ExecQuery (pWbemServices, strQueryLanguage, strQuery, 位或 (32, 16), 0, pEnumerator)<br />     .如果真 (hresult ＝ 0)<br />         .循环判断首 ()<br />             hresult ＝ IEnumWbemClassObject_Next (pEnumerator, 2000, 1, ppObject, p*Ftched)<br />             .如果真 (hresult ＝ 0)<br />                 wszName ＝ COM_bstr_t (属性名称)<br />                 hresult ＝ IWbemClassObject_Get (ppObject, wszName, 0, 取变体型指针 (var), 0, 0)<br />                 SysFreeString (wszName)<br />                 COM_Release (ppObject)<br />             .如果真结束<br /> <br />         .循环判断尾 (p*Ftched ＝ 1)<br />         COM_Release (pEnumerator)<br />     .如果真结束<br />     COM_Release (pWbemServices)<br />     SysFreeString (strQueryLanguage)<br />     SysFreeString (strQuery)<br /> .如果真结束<br /> 返回 (var)

附件： 进程监控.e (5.69 KB, 下载次数: 11)

2019-9-14 18:28 上传

点击文件名下载附件