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群后，在群共享里下载。