首先來(lái)看一個(gè)簡(jiǎn)單的通過(guò)WMI獲取系統(tǒng)信息的范例，這個(gè)范例通過(guò)WMI對(duì)象獲得系統(tǒng)中運(yùn)行的的進(jìn)程：

FunctionEnum1()AsString
　DimWMI

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

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

　　在上面的代碼中，首先通過(guò)GetObject("WinMgmts:")獲得WMI對(duì)象，在WMI對(duì)象下有很多的子項(xiàng)，在這里我們通過(guò)WMI.InstancesOf("Win32_Process")獲得系統(tǒng)中所有的進(jìn)程列表子項(xiàng)。

　　下面看一個(gè)完整的訪問(wèn)WMI對(duì)象的范例，這個(gè)范例獲得計(jì)算機(jī)的信息。

　　建立一個(gè)新工程，在Form1中添加一個(gè)TextBox控件以及一個(gè)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&"計(jì)算機(jī)名稱:"&item.name&vbCrLf
　　s=s&"狀態(tài):"&item.Status&vbCrLf
　　s=s&"類型:"&item.SystemType&vbCrLf
　　s=s&"生產(chǎn)廠家:"&item.Manufacturer&vbCrLf
　　s=s&"型號(hào):"&item.Model&vbCrLf
　　s=s&"內(nèi)存:~"&item.totalPhysicalMemory/1024000&"mb"&vbCrLf
　　s=s&"域:"&item.domain&vbCrLf
　　‘s=s&"工作組"&item.Workgroup&vbCrLf‘獲得工作組和域的選項(xiàng)不能同時(shí)用

　　s=s&"當(dāng)前用戶:"&item.username&vbCrLf
　　s=s&"啟動(dòng)狀態(tài)"&item.BootupState&vbCrLf
　　s=s&"該計(jì)算機(jī)屬于"&item.PrimaryOwnerName&vbCrLf
　　s=s&"系統(tǒng)類型"&item.CreationClassName&vbCrLf
　　s=s&"計(jì)算機(jī)類類型"&item.Description&vbCrLf

　　Fori=0To1‘這里假設(shè)安裝了兩個(gè)系統(tǒng)
　　　s=s&Chr(5)&"啟動(dòng)選項(xiàng)"&i&":"&item.SystemStartupOptions(i)_
　　　　　&vbCrLf
　　Nexti
　Next

　Text1.Text=s
EndSub

　　運(yùn)行程序，點(diǎn)擊Command1，在textBox中就可以顯示計(jì)算機(jī)的信息。

　　需要說(shuō)明的是，并不是所有的系統(tǒng)都支持WMI，在有些系統(tǒng)中無(wú)法顯示生產(chǎn)廠家等信息。

　　現(xiàn)在的計(jì)算機(jī)以及網(wǎng)絡(luò)組成十分復(fù)雜。例如系統(tǒng)硬件方面就有主板、硬盤、網(wǎng)卡...。

　　軟件方面有操作系統(tǒng)、系統(tǒng)中安裝的軟件、正在運(yùn)行的進(jìn)程等等。網(wǎng)絡(luò)方面有域、工作組等等。利用WMI可以訪問(wèn)上面的全部信息，但是如果向上面一樣的利用分項(xiàng)來(lái)訪問(wèn)的話會(huì)很麻煩。為此，WMI提供了一種類似SQL語(yǔ)句的查詢語(yǔ)句，可以通過(guò)查詢語(yǔ)句獲得WMI對(duì)象下的子項(xiàng)。

　　下面是一個(gè)遍歷系統(tǒng)中安裝的網(wǎng)卡并返回網(wǎng)卡MAC地址的代碼：

PrivateFunctionMACAddress()AsString

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

　ForEachobjInobjs
　　MACAddress=obj.MACAddress
　　ExitFor
　Nextobj
EndFunction

　　上面的代碼獲得WMI對(duì)象，然后運(yùn)行ExecQuery執(zhí)行一個(gè)WMI查詢語(yǔ)句獲得安裝的網(wǎng)卡并返回網(wǎng)卡的MAC地址。

　　WMI還支持事件處理，讓程序可以處理系統(tǒng)事件，例如程序運(yùn)行、關(guān)閉，可移動(dòng)驅(qū)動(dòng)器的插入、取出等。下面是一個(gè)可以對(duì)系統(tǒng)中運(yùn)行程序進(jìn)行監(jiān)控的程序。

　　首先建立一個(gè)新工程，然后點(diǎn)擊菜單的project　references項(xiàng)，在references列表中選中MicrosoftWMIScriptingLibrary將WMI對(duì)象庫(kù)加入工程中。然后在Form1中加入一個(gè)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)
　Nexti
EndSub

PrivateSubStatusSink_OnCompleted(ByValHResultAsWbemErrorEnum,_
ByValErrorObjectAsSWbemObject,_
ByValEventContextAsSWbemNamedValueSet)

IfHResult＜＞wbemErrCallCancelledThen
‘錯(cuò)誤處理
EndIf
EndSub

　　在上面的程序中定義了一個(gè)SWbemSink對(duì)象StatusSink，然后建立一個(gè)SWbemServices對(duì)象Server，并將StatusSink連接到Server對(duì)象上。這樣就可以通過(guò)StatusSink監(jiān)控程序的運(yùn)行。

　　WMI應(yīng)用最強(qiáng)大的一面是可以通過(guò)WEB頁(yè)面來(lái)實(shí)現(xiàn)遠(yuǎn)程管理。下面我們來(lái)建立一個(gè)HTML頁(yè)面，該頁(yè)面可以實(shí)現(xiàn)向上面的VB程序一樣動(dòng)態(tài)監(jiān)控系統(tǒng)中運(yùn)行的程序。監(jiān)控系統(tǒng)中程序運(yùn)行的HTML代碼如下：

＜html＞
＜head＞
＜o(jì)bjectID="mysink"CLASSID="CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223"＞＜/object＞
＜/head＞
＜SCRIPT＞
　functionwindow.onload()
　{
　　varlocator=newActiveXObject("WbemScripting.SWbemLocator");
　　varservice=locator.ConnectServer();
　　szQuery="SELECT*FROM__InstanceCreationEvent";
　　szQuery ="WITHIN1";
　　szQuery ="WHERETargetInstanceISA‘Win32_Process‘";
　　service.ExecNotificationQueryAsync(mysink,szQuery);
　}
＜/SCRIPT＞
＜scriptFOR="mysink"EVENT="OnObjectReady(obj,objAsyncContext)"＞
　document.all.info.innerHTML =obj.TargetInstance.Name "＜br＞";
＜/script＞
＜body＞
?。約panID="info"＞＜/span＞
＜/body＞
＜/html＞

　　保存代碼為Htm后綴的頁(yè)面文件。雙擊打開(kāi)網(wǎng)頁(yè)，然后運(yùn)行一個(gè)程序，在網(wǎng)頁(yè)上就可以列出運(yùn)行的程序的文件名。

　　以上簡(jiǎn)要的介紹了一下WMI的應(yīng)用，實(shí)際上WMI對(duì)象的操作是十分復(fù)雜，功能也是很強(qiáng)大的，例如你可以通過(guò)WMI在服務(wù)器上監(jiān)控整個(gè)局域網(wǎng)上的計(jì)算機(jī)、向局域網(wǎng)上的計(jì)算機(jī)批量安裝軟件（例如殺毒軟件）。通過(guò)頁(yè)面遠(yuǎn)程訪問(wèn)服務(wù)器，控件服務(wù)器運(yùn)行程序，添加用戶等。關(guān)于更多的WMI的應(yīng)用，讀者可以訪問(wèn)MSDN上WMI開(kāi)發(fā)的主頁(yè):

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmistart_5kth.asp

　　獲取更多信息。