vba 如何操作wmi类库

在 VBA 中操作 WMI 类库，需要先引用 Microsoft WMI Scripting Library。具体步骤如下：

1. 打开 VBA 编辑器，在菜单栏中选择「工具」，再选择「引用」。

2. 在弹出的「引用」对话框中，找到并勾选 Microsoft WMI Scripting Library。然后点击「确定」。

3. 接下来，你就可以在 VBA 中使用 WMI 类库提供的对象和方法了。例如，可以使用以下 VBA 代码获取当前系统的计算机名称：

Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

For Each objItem In colItems
    Debug.Print "Computer Name: " & objItem.Name
Next objItem

以上代码会输出当前系统的计算机名称。你可以根据需要，修改代码以获取更多系统信息。