利用WMI獲取系統信息
WMI(Windows Management Instrumentation)技術(shù)是微軟提供的Windows下的系統管理工具。
通過(guò)該工具可以在本地或者管理客戶(hù)端系統中幾乎一切的信息。很多專(zhuān)業(yè)的網(wǎng)絡(luò )管理工具都是
基于WMI開(kāi)發(fā)的。該工具在Win2000以及WinNT下是標準工具，在Win9X下是擴展安裝選項。本文
將介紹如何通過(guò)VB編程來(lái)訪(fǎng)問(wèn)WMI對象的編程。
首先來(lái)看一個(gè)簡(jiǎn)單的通過(guò)WMI獲取系統信息的范例，這個(gè)范例通過(guò)WMI對象獲得系統中運行
的的進(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
在上面的代碼中，首先通過(guò) GetObject("WinMgmts:")獲得WMI對象，在WMI對象下有很多的
子項，在這里我們通過(guò)WMI.InstancesOf("Win32_Process")獲得系統中所有的進(jìn)程列表子項。
下面看一個(gè)完整的訪(fǎng)問(wèn)WMI對象的范例，這個(gè)范例獲得計算機的信息。
建立一個(gè)新工程，在Form1中添加一個(gè)TextBox控件以及一個(gè)CommandButton控件，在
CommandButton的Click事件中寫(xiě)入以下的代碼：
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 & "計算機名稱(chēng): " & item.name & vbCrLf
s = s & "狀態(tài): " & item.Status & vbCrLf
s = s & "類(lèi)型: " & item.SystemType & vbCrLf
s = s & "生產(chǎn)廠(chǎng)家: " & 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 ‘獲得工作組和域的選項不能同時(shí)用
s = s & "當前用戶(hù): " & item.username & vbCrLf
s = s & "啟動(dòng)狀態(tài)" & item.BootupState & vbCrLf
s = s & "該計算機屬于" & item.PrimaryOwnerName & vbCrLf
s = s & "系統類(lèi)型" & item.CreationClassName & vbCrLf
s = s & "計算機類(lèi)類(lèi)型" & item.Description & vbCrLf
For i = 0 To 1 ‘這里假設安裝了兩個(gè)系統
s = s & Chr(5) & "啟動(dòng)選項" & i & " :" & item.SystemStartupOptions(i) _
& vbCrLf
Next i
Next
Text1.Text = s
End Sub
運行程序，點(diǎn)擊Command1，在textBox中就可以顯示計算機的信息。
在上面的代碼中，程序通過(guò)GetObject("winmgmts:")獲得WMI對象，然后獲得下面的
Win32_ComputerSystem子項并通過(guò)訪(fǎng)問(wèn)Win32_ComputerSystem對象中的分項獲得系統中的信息。
需要說(shuō)明的是，并不是所有的系統都支持WMI，在有些系統中無(wú)法顯示生產(chǎn)廠(chǎng)家等信息。
現在的計算機以及網(wǎng)絡(luò )組成十分復雜。例如系統硬件方面就有主板、硬盤(pán)、網(wǎng)卡... 。
軟件方面有操作系統、系統中安裝的軟件、正在運行的進(jìn)程等等。網(wǎng)絡(luò )方面有域、工作組
等等。利用WMI可以訪(fǎng)問(wèn)上面的全部信息，但是如果向上面一樣的利用分項來(lái)訪(fǎng)問(wèn)的話(huà)會(huì )很
麻煩。為此，WMI提供了一種類(lèi)似SQL語(yǔ)句的查詢(xún)語(yǔ)句，可以通過(guò)查詢(xún)語(yǔ)句獲得WMI對象下的子項。
下面是一個(gè)遍歷系統中安裝的網(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對象，然后運行ExecQuery執行一個(gè)WMI查詢(xún)語(yǔ)句獲得安裝的網(wǎng)卡并返回
網(wǎng)卡的MAC地址。
WMI還支持事件處理，讓程序可以處理系統事件，例如程序運行、關(guān)閉，可移動(dòng)驅動(dòng)器的插入、
取出等。下面是一個(gè)可以對系統中運行程序進(jìn)行監控的程序。
首先建立一個(gè)新工程，然后點(diǎn)擊菜單的 project | references 項，在references列表中選中
Microsoft WMI Scripting Library將WMI對象庫加入工程中。然后在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
‘錯誤處理
End If
End Sub
在上面的程序中定義了一個(gè)SWbemSink對象StatusSink，然后建立一個(gè)SWbemServices對象Server，
并將StatusSink連接到Server對象上。這樣就可以通過(guò)StatusSink監控程序的運行。
運行程序，然后任意運行一個(gè)程序，在Form1的ListBox中就可以列出運行的程序的信息。
WMI應用最強大的一面是可以通過(guò)WEB頁(yè)面來(lái)實(shí)現遠程管理。下面我們來(lái)建立一個(gè)HTML頁(yè)面，該頁(yè)面
可以實(shí)現向上面的VB程序一樣動(dòng)態(tài)監控系統中運行的程序。監控系統中程序運行的HTML代碼如下：
<html>
<head>
<object 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>
<span ID="info"></span>
</body>
</html>
保存代碼為Htm后綴的頁(yè)面文件。雙擊打開(kāi)網(wǎng)頁(yè)，然后運行一個(gè)程序，在網(wǎng)頁(yè)上就可以列出
運行的程序的文件名。
以上簡(jiǎn)要的介紹了一下WMI的應用，實(shí)際上WMI對象的操作是十分復雜，功能也是很強大的，例如
你可以通過(guò)WMI在服務(wù)器上監控整個(gè)局域網(wǎng)上的計算機、向局域網(wǎng)上的計算機批量安裝軟件（例如殺
毒軟件）。通過(guò)頁(yè)面遠程訪(fǎng)問(wèn)服務(wù)器，控件服務(wù)器運行程序，添加用戶(hù)等。關(guān)于更多的WMI的應用，
讀者可以訪(fǎng)問(wèn)MSDN上WMI開(kāi)發(fā)的主頁(yè):
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmistart_5kth.asp
獲取更多信息。
以上程序在Win2000專(zhuān)業(yè)版下編寫(xiě)。
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
