上一道冷门的菜（在VBA中使用WMI，,到此结束）

tianxialaosan

wpxxsyzx 发表于 2016-1-20 09:59
1、添加对“Microsoft WMI Scripting V1.2 Library”的引用。

楼主你好：
我的表格宏比较多，添加是否插入指定U盘代码后，出现“可用资源不足，excel无法完成此任务。。。“的提示信息，没有这些代码时不提示。
添加的代码如下。
Private Sub fffff()
Dim WMILocator As New SWbemLocator
Dim WMIServices As SWbemServices
Dim WMIObjectSet As SWbemObjectSet
Dim WMIObject As SWbemObject

Dim i As Long
Sheet1.Cells.Clear
Set WMIServices = WMILocator.ConnectServer(".", "root\CIMV2") '可以省略，写上是为了更好理解参数的使用
Set WMIObjectSet = WMIServices.InstancesOf("Win32_USBHub")
i = U盘物理ID号
    For Each WMIObject In WMIObjectSet
        '.Range("a" & i).Value = "U盘" & i
        If i = Split(WMIObject.DeviceID, "\")(2) Then  '物理序列号添加到B列
        Exit Sub
        Else
        End If
    Next
        
        ActiveWorkbook.Save
        ActiveWorkbook.Close

Set WMIObject = Nothing
Set WMIObjectSet = Nothing
End Sub


删除几个有宏代码的表格后，可以保存，不删除不能保存，一保存就出现这个提示。
请楼主指导一二。万分感谢。

ebkzxcel

楼主太V5，非常感谢分享，啃了几天了才大致看完，目的只是为了看如何用VBA语句修改打印机自动双面打印。

sunny_8848

读取硬盘物理序列号的代码有谁能修改成只读取U盘的代码吗？一直无法判断排除硬盘的序列号

阳朔游游

弱弱问一句，用WMI在WIN7及以上系统无法获取CPU ID，是不是需要以管理员身份运行，代码怎么写？

weiyingde

wpxxsyzx 发表于 2011-6-23 08:46
无论大家是否感性趣，继续写完。
WMI的体系结构
下面的内容很枯燥乏味，建议你耐心看看，原因有三个：

世间非常之观常在于险远，非大侠一般身手者不能至。
学艺如我辈者，只能仰视，不能坐与论道，憾哉！！
故大侠虽感孤独，然不必气馁。须知如此蓬勃的论坛，
必将人才济济，能人辈出，何愁后继没有知音？？！！

whlbliss

厉害了，我的楼主!

whlbliss

whlbliss 发表于 2018-1-12 16:28
厉害了，我的楼主!

向高手致敬！

whlbliss

我曾试着学习API，最终放弃了。感谢楼主这次的教程，我突然明白了许多！

factitious

你好！看了你发的关于WMI的帖子很受用，但是我有个问题一直不明白。
EXCEL里的打印机属性，能通过WMI修改其状态么？我能用WMI设置打印机属性对话框里的内容么？自己研究了好久没能找到相关的方法，还请大神指点迷津。

chenjx80

非常好的总结！