Visual Basic编程访问WMI对象

　　


                   WMI(Windows Management Instrumentation)技术是微软提供的Windows下的系统管理工具。通过该工具可以在本地或者管理客户端系统中几乎一切的信息。很多专业的网络管理工具都是基于WMI开发的。该工具在Win2000以及WinNT下是标准工具，在Win9X下是扩展安装选项。本文将介绍如何通过VB编程来访问WMI对象的编程。



　　 首先来看一个简单的通过WMI获取系统信息的范例，这个范例通过WMI对象获得系统中运行的的进程：



<CODE>Function Enum1() As String

　 Dim WMI



　 Set WMI = GetObject("WinMgmts:")

　 Set objs = WMI.InstancesOf("Win32_Process")



　 For Each obj In objs

　　 Enum1 = Enum1   obj.Description   Chr(13)   Chr(10)

　 Next

End Function</CODE>

　　 在上面的代码中，首先通过 GetObject("WinMgmts:")获得WMI对象，在WMI对象下有很多的子项，在这里我们通过WMI.InstancesOf("Win32_Process")获得系统中所有的进程列表子项。



　　 下面看一个完整的访问WMI对象的范例，这个范例获得计算机的信息。



　　 建立一个新工程，在Form1中添加一个TextBox控件以及一个CommandButton控件，在CommandButton的Click事件中写入以下的代码：



<CODE>Private Sub Command1_Click()

　 Dim s, System, item

　 Dim i As Integer



　 Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")

　 For Each item In System

　　 ‘List1.AddItem item.cputype

　　 s = "Computer Info" & vbCrLf

　　 s = s & "***********************" & vbCrLf

　　 s = s & "计算机名称: " & item.name & vbCrLf

　　 s = s & "状态: " & item.Status & vbCrLf

　　 s = s & "类型: " & item.SystemType & vbCrLf

　　 s = s & "生产厂家: " & item.Manufacturer & vbCrLf

　　 s = s & "型号: " & item.Model & vbCrLf

　　 s = s & "内存: ~" & item.totalPhysicalMemory \ 1024000 & "mb" & vbCrLf

　　 s = s & "域: " & item.domain & vbCrLf

　　 ‘s = s & "工作组" & item.Workgroup & vbCrLf ‘获得工作组和域的选项不能同时用



　　 s = s & "当前用户: " & item.username & vbCrLf

　　 s = s & "启动状态" & item.BootupState & vbCrLf

　　 s = s & "该计算机属于" & item.PrimaryOwnerName & vbCrLf

　　 s = s & "系统类型" & item.CreationClassName & vbCrLf

　　 s = s & "计算机类类型" & item.Description & vbCrLf



　　 For i = 0 To 1 ‘这里假设安装了两个系统

　　　 s = s & Chr(5) & "启动选项" & i & " :" & item.SystemStartupOptions(i) _

　　　　　& vbCrLf

　　 Next i

　 Next



　 Text1.Text = s

End Sub</CODE>


<CODE></CODE>


　　


                  




　　 运行程序，点击Command1，在textBox中就可以显示计算机的信息。



　　 在上面的代码中，程序通过GetObject("winmgmts:")获得WMI对象，然后获得下面的Win32_ComputerSystem子项并通过访问Win32_ComputerSystem对象中的分项获得系统中的信息。



　　 需要说明的是，并不是所有的系统都支持WMI，在有些系统中无法显示生产厂家等信息。



　　 现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡... 。



　　 软件方面有操作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组等等。利用WMI可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很麻烦。为此，WMI提供了一种类似SQL语句的查询语句，可以通过查询语句获得WMI对象下的子项。



　　 下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码：



<CODE>Private Function MACAddress() As String



　 Set objs = GetObject("winmgmts:").ExecQuery( _

　　"SELECT MACAddress " & _

　　"FROM Win32_NetworkAdapter " & _

　　"WHERE " & _

　　"((MACAddress Is Not NULL) " & _

　　"AND (Manufacturer ＜＞ " & _

　　"‘Microsoft‘))")



　 For Each obj In objs

　　 MACAddress = obj.MACAddress

　　 Exit For

　 Next obj

End Function</CODE>

　　 上面的代码获得WMI对象，然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回网卡的MAC地址。