Visual Basic编程访问WMI对象

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

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

Function Enum1() As String
　 Dim WMI

　Set WMI = GetObject("WinMgmts:")
　 Set objs = WMI.InstancesOf("Win32_Process") 字串9

　For Each obj In objs
　　 Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10)
　 Next
End Function 字串9

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

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

字串8

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

Private Sub Command1_Click()
　 Dim s, System, item
　 Dim i As Integer 字串2

　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 ‘获得工作组和域的选项不能同时用

字串4

　　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 字串4

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

　Text1.Text = s
End Sub

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

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

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

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

字串8

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

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

Private Function MACAddress() As String 字串8

　Set objs = GetObject("winmgmts:").ExecQuery( _
　　 "SELECT MACAddress " & _
　　 "FROM Win32_NetworkAdapter " & _
　　 "WHERE " & _
　　 "((MACAddress Is Not NULL) " & _
　　 "AND (Manufacturer <> " & _
　　 "‘Microsoft‘))")

字串9

　For Each obj In objs
　　 MACAddress = obj.MACAddress
　　 Exit For
　 Next obj
End Function

字串2

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

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

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

Option Explicit

字串6

Dim Locator As SWbemLocator
Dim Services As SWbemServices
Dim WithEvents StatusSink As SWbemSink 字串9

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

Private Sub Form_Load()
　 Dim Query As String

字串4

　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‘"

字串4

　Services.ExecNotificationQueryAsync StatusSink, Query
End Sub 字串5

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

　Dim arr
　 Dim strQue As String
　 Dim i As Integer

字串8

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

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

If HResult <> wbemErrCallCancelled Then
‘错误处理
End If
End Sub

　　在上面的/doc/">程序中定义了一个SWbemSink对象StatusSink，然后建立一个SWbemServices对象Server，并将StatusSink连接到Server对象上。这样就可以通过StatusSink监控/doc/">程序的运行。
运行/doc/">程序，然后任意运行一个/doc/">程序，在Form1的ListBox中就可以列出运行的/doc/">程序的信息。

　　WMI应用最强大的一面是可以通过WEB页面来实现远程管理。下面我们来建立一个HTML页面，该页面可以实现向上面的VB/doc/">程序一样动态监控系统中运行的/doc/">程序。监控系统中/doc/">程序运行的HTML代码如下：

字串8

<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> 字串1
</body>
</html> 字串2

　　保存代码为Htm后缀的页面文件。双击打开网页，然后运行一个/doc/">程序，在网页上就可以列出运行的/doc/">程序的文件名。 字串2

　　以上简要的介绍了一下WMI的应用，实际上WMI对象的操作是十分复杂，功能也是很强大的，例如你可以通过WMI在服务器上监控整个局域网上的计算机、向局域网上的计算机批量安装软件（例如杀毒软件）。通过页面远程访问服务器，/com/">控件服务器运行/doc/">程序，添加用户等。关于更多的WMI的应用，读者可以访问MSDN上WMI开发的主页:

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

　　获取更多信息。

昵称:编程爱好者(如未登陆,默认匿名评论) 注册 登录
评论:请自觉遵守互联网相关政策法规,评论不得超过250字.

验证码: