VisualBasic编程访问WMI对象

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

FunctionEnum1()AsString
　DimWMI

　SetWMI=GetObject("WinMgmts:")
　Setobjs=WMI.InstancesOf("Win32_Process")

　ForEachobjInobjs
　　Enum1=Enum1 obj.Description Chr(13) Chr(10)
　Next
EndFunction

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

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

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

PrivateSubCommand1_Click()
　Dims,System,item
　DimiAsInteger

　SetSystem=GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
　ForEachitemInSystem
　　‘List1.AddItemitem.cputype
　　s="ComputerInfo"&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

　　Fori=0To1‘这里假设安装了两个系统
　　　s=s&Chr(5)&"启动选项"&i&":"&item.SystemStartupOptions(i)_
　　　　　&vbCrLf
　　Nexti
　Next

　Text1.Text=s
EndSub

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

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

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

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

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

PrivateFunctionMACAddress()AsString

　Setobjs=GetObject("winmgmts:").ExecQuery(_
　　"SELECTMACAddress"&_
　　"FROMWin32_NetworkAdapter"&_
　　"WHERE"&_
　　"((MACAddressIsNotNULL)"&_
　　"AND(Manufacturer＜＞"&_
　　"‘Microsoft‘))")

　ForEachobjInobjs
　　MACAddress=obj.MACAddress
　　ExitFor
　Nextobj
EndFunction

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

　　WMI还支持事件处理，让程序可以处理系统事件，例如程序运行、关闭，可移动驱动器的插入、取出等。下面是一个可以对系统中运行程序进行监控的程序。

　　首先建立一个新工程，然后点击菜单的project　references项，在references列表中选中MicrosoftWMIScriptingLibrary将WMI对象库加入工程中。然后在Form1中加入一个ListBox控件，然后在Form1中加入以下代码：

OptionExplicit

DimLocatorAsSWbemLocator
DimServicesAsSWbemServices
DimWithEventsStatusSinkAsSWbemSink

PrivateSubKillEvents()
　StatusSink.Cancel
　SetStatusSink=Nothing
EndSub

PrivateSubForm_Load()
　DimQueryAsString

　SetStatusSink=NewSWbemSink
　SetLocator=CreateObject("WbemScripting.SWbemLocator")
　SetServices=Locator.ConnectServer()

　Query="SELECT*FROM__InstanceCreationEvent"
　Query=Query "WITHIN1"
　Query=Query "WHERETargetInstanceISA‘Win32_Process‘"

　Services.ExecNotificationQueryAsyncStatusSink,Query
EndSub

PrivateSubStatusSink_OnObjectReady(ByValStatusEventAsSWbemObject,_
ByValEventContextAsSWbemNamedValueSet)

　Dimarr
　DimstrQueAsString
　DimiAsInteger

　List1.Clear
　arr=Split(StatusEvent.GetObjectText_,Chr(10))
　Fori=LBound(arr)ToUBound(arr)
　　List1.AddItemarr(i)