WMI(Windows Management Instrumentation)技術(shù)是微軟提供的Windows下的系統(tǒng)管理工具。通過該工具可以在本地或者管理客戶端系統(tǒng)中幾乎一切的信息。很多專業(yè)的網(wǎng)絡(luò)管理工具都是基于WMI開發(fā)的。該工具在Win2000以及WinNT下是標(biāo)準(zhǔn)工具，在Win9X下是擴(kuò)展安裝選項(xiàng)。本文將介紹如何通過VB編程來訪問WMI對(duì)象的編程。

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

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

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

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

　　建立一個(gè)新工程，在Form1中添加一個(gè)TextBox控件以及一個(gè)CommandButton控件，在CommandButton的Click事件中寫入以下的代碼：

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 & "計(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

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

　Text1.Text = s
End Sub

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

　　在上面的代碼中，程序通過GetObject("winmgmts:")獲得WMI對(duì)象，然后獲得下面的Win32_ComputerSystem子項(xiàng)并通過訪問Win32_ComputerSystem對(duì)象中的分項(xiàng)獲得系統(tǒng)中的信息。

　　需要說明的是，并不是所有的系統(tǒng)都支持WMI，在有些系統(tǒng)中無法顯示生產(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可以訪問上面的全部信息，但是如果向上面一樣的利用分項(xiàng)來訪問的話會(huì)很麻煩。為此，WMI提供了一種類似SQL語句的查詢語句，可以通過查詢語句獲得WMI對(duì)象下的子項(xiàng)。

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

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

　　上面的代碼獲得WMI對(duì)象，然后運(yùn)行ExecQuery執(zhí)行一個(gè)WMI查詢語句獲得安裝的網(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列表中選中Microsoft WMI Scripting Library將WMI對(duì)象庫加入工程中。然后在Form1中加入一個(gè)ListBox控件，然后在Form1中加入以下代碼：

Option Explicit

Dim Locator As SWbemLocator
Dim Services As SWbemServices
Dim WithEvents StatusSink As SWbemSink

Private Sub KillEvents()
　StatusSink.Cancel
　Set StatusSink = Nothing
End Sub

Private Sub Form_Load()
　Dim Query As String

　Set StatusSink = New SWbemSink
　Set Locator = CreateObject("WbemScripting.SWbemLocator")
　Set Services = Locator.ConnectServer()

　Query = "SELECT * FROM __InstanceCreationEvent "
　Query = Query + "WITHIN 1 "
　Query = Query + "WHERE TargetInstance ISA ‘Win32_Process‘"

　Services.ExecNotificationQueryAsync StatusSink, Query
End Sub

Private Sub StatusSink_OnObjectReady(ByVal StatusEvent As SWbemObject, _
ByVal EventContext As SWbemNamedValueSet)

　Dim arr
　Dim strQue As String
　Dim i As Integer

　List1.Clear
　arr = Split(StatusEvent.GetObjectText_, Chr(10))
　For i = LBound(arr) To UBound(arr)
　　List1.AddItem arr(i)
　Next i
End Sub

Private Sub StatusSink_OnCompleted(ByVal HResult As WbemErrorEnum, _
ByVal ErrorObject As SWbemObject, _
ByVal EventContext As SWbemNamedValueSet)

If HResult ＜＞ wbemErrCallCancelled Then
‘錯(cuò)誤處理
End If
End Sub

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

　　運(yùn)行程序，然后任意運(yùn)行一個(gè)程序，在Form1的ListBox中就可以列出運(yùn)行的程序的信息。

　　WMI應(yīng)用最強(qiáng)大的一面是可以通過WEB頁面來實(shí)現(xiàn)遠(yuǎn)程管理。下面我們來建立一個(gè)HTML頁面，該頁面可以實(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ì)bject ID="mysink" CLASSID= "CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223"＞＜/object＞
＜/head＞
＜SCRIPT＞
　function window.onload()
　{
　　var locator = new ActiveXObject ("WbemScripting.SWbemLocator");
　　var service = locator.ConnectServer();
　　szQuery = "SELECT * FROM __InstanceCreationEvent ";
　　szQuery += "WITHIN 1 ";
　　szQuery += "WHERE TargetInstance ISA ‘Win32_Process‘";
　　service.ExecNotificationQueryAsync(mysink,szQuery);
　}
＜/SCRIPT＞
＜script FOR="mysink" EVENT="OnObjectReady(obj, objAsyncContext)"＞
　document.all.info.innerHTML += obj.TargetInstance.Name + "＜br＞";
＜/script＞
＜body＞
�。約pan ID="info"＞＜/span＞
＜/body＞
＜/html＞

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

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

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

　　獲取更多信息。