技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 635|回复: 0
收起左侧

【VFB源码】WMI使用集锦

[复制链接]

47

主题

67

帖子

590

积分

用户组: 大·技术宅

UID
3260
精华
7
威望
12 点
宅币
463 个
贡献
1 次
宅之契约
0 份
在线时间
19 小时
注册时间
2017-12-26
发表于 2018-3-6 21:05:14 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有帐号?立即注册→加入我们

x
1520341224715211.jpg
WMI(Windows Management Instrumentation,Windows 管理规范)是一项核心的 Windows 管理技术;用户可以使用 WMI 管理本地和远程计算机。
本例题里,只是举例了各项使用方法
[Visual Basic] 纯文本查看 复制代码
  ' //  使用 命名对象 连接到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群后,在群共享里下载。

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号|网站地图

GMT+8, 2018-9-24 00:06 , Processed in 0.105840 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表