【VFB源码】WMI使用集锦
WMI（Windows Management Instrumentation,Windows 管理规范）是一项核心的 Windows 管理技术；用户可以使用 WMI 管理本地和远程计算机。
本例题里，只是举例了各项使用方法
' //使用 命名对象 连接到WMI
' // 注意：$ 用于避免编译器转义字符的迂腐警告
Dim pServices As CWmiServices = $"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"
If pServices.ServicesPtr = Null Then End
' // 执行查询
Dim hr As HRESULT = pServices.ExecQuery("SELECT * FROM Win32_Printer")
If hr <> S_OK Then Print AfxWmiGetErrorCodeText(hr) : Return 0
' // 获取检索的对象数量
Dim nCount As Long = pServices.ObjectsCount
Print "对象数量: ", nCount
If nCount = 0 Then Print "找不到对象" :Return 0
' // 枚举对象
For i As Long = 0 To nCount - 1
Print "--- Index " & Str(i) & " ---"
' // 获取命名属性的集合
If pServices.GetNamedProperties(i) = S_OK Then
Print pServices.PropValue("Caption")
Print pServices.PropValue("Capabilities")
End If
Next
操作方法有了，WMI 资料自然要找MSDN了。
源码下载：Basic语言编程群 78458582 进QQ群后，在群共享里下载。
感谢楼主分享~~~
页:
[1]