【VFB源码】WMI使用集锦

勇芳软件

WMI（Windows Management Instrumentation,Windows 管理规范）是一项核心的 Windows 管理技术；用户可以使用 WMI 管理本地和远程计算机。
本例题里，只是举例了各项使用方法

1.   ' //  使用 命名对象 连接到WMI
   
2.   ' // 注意：$ 用于避免编译器转义字符的迂腐警告
   
3.   Dim pServices As CWmiServices = $"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"
   
4.   If pServices.ServicesPtr = Null Then End
   
5.   
   
6.   ' // 执行查询
   
7.   Dim hr As HRESULT = pServices.ExecQuery("SELECT * FROM Win32_Printer")
   
8.   If hr <> S_OK Then Print AfxWmiGetErrorCodeText(hr) : Return 0
   
9.   
   
10.   ' // 获取检索的对象数量
    
11.   Dim nCount As Long = pServices.ObjectsCount
    
12.   Print "对象数量: ", nCount
    
13.   If nCount = 0 Then Print "找不到对象" :  Return 0
    
14.   
    
15.   ' // 枚举对象
    
16.   For i As Long = 0 To nCount - 1
    
17.       Print "--- Index " & Str(i) & " ---"
    
18.       ' // 获取命名属性的集合
    
19.       If pServices.GetNamedProperties(i) = S_OK Then
    
20.           Print pServices.PropValue("Caption")
    
21.           Print pServices.PropValue("Capabilities")
    
22.       End If
    
23.   Next

复制代码

操作方法有了，WMI 资料自然要找MSDN了。
源码下载：Basic语言编程群 78458582 进QQ群后，在群共享里下载。

xiawan

感谢楼主分享~~~