《利用WMI获取系统信息》由会员分享，可在线阅读，更多相关《利用WMI获取系统信息（5页珍藏版）》请在金锄头文库上搜索。
1、利用 WMI获取系统信息2008-10-10 18:12利用 WMI获取系统信息 WMI(Windows Management Instrumentation)技术是微软提供的 Windows下的系统管理工具。通过该工具可以在本地或者管理客户端系统中几乎一切的信息。很多专业的网络管理工具都是基于 WMI开发的。该工具在 Win2000以及 WinNT下是标准工具，在 Win9X下是扩展安装选项。本文将介绍如何通过 VB编程来访问 WMI对象的编程。首先来看一个简单的通过 WMI获取系统信息的范例，这个范例通过 WMI对象获得系统中运行的的进程：Function Enum1() As Strin
2、g Dim WMISet WMI = GetObject(WinMgmts:) Set objs = WMI.InstancesOf(Win32_Process) For Each obj In objs Enum1 = Enum1 + obj.Description + Chr(13) + Chr(10) NextEnd Function 在上面的代码中，首先通过 GetObject(WinMgmts:)获得 WMI对象，在 WMI对象下有很多的子项，在这里我们通过WMI.InstancesOf(Win32_Process)获得系统中所有的进程列表子项。下面看一个完整的访问 WMI对象的范例
3、，这个范例获得计算机的信息。建立一个新工程，在 Form1中添加一个 TextBox控件以及一个CommandButton控件，在 CommandButton的 Click事件中写入以下的代码：Private Sub Command1_Click() Dim s, System, item Dim i As IntegerSet System = GetObject(winmgmts:).InstancesOf(Win32_ComputerSystem) For Each item In System 注释：List1.AddItem item.cputype s = Computer Inf
4、o & vbCrLf s = s & * & vbCrLf s = s & 计算机名称: & item.name & vbCrLfs = s & 状态: & item.Status & vbCrLfs = s & 类型: & item.SystemType & vbCrLfs = s & 生产厂家: & item.Manufacturer & vbCrLfs = s & 型号: & item.Model & vbCrLfs = s & 内存: & item.totalPhysicalMemory 1024000 & mb & vbCrLfs = s & 域: & item.domain & v
5、bCrLf注释：s = s & 工作组 & item.Workgroup & vbCrLf 注释：获得工作组和域的选项不能同时用 s = s & 当前用户: & item.username & vbCrLfs = s & 启动状态 & item.BootupState & vbCrLfs = s & 该计算机属于 & item.PrimaryOwnerName & vbCrLfs = s & 系统类型 & item.CreationClassName & vbCrLfs = s & 计算机类类型 & item.Description & vbCrLf For i = 0 To 1 注释：这里假
6、设安装了两个系统 s = s & Chr(5) & 启动选项 & i & : & item.SystemStartupOptions(i) _ & vbCrLf Next i NextText1.Text = s End Sub 运行程序，点击 Command1，在 textBox中就可以显示计算机的信息。在上面的代码中，程序通过 GetObject(winmgmts:)获得 WMI对象，然后获得下面的Win32_ComputerSystem子项并通过访问 Win32_ComputerSystem对象中的分项获得系统中的信息。需要说明的是，并不是所有的系统都支持 WMI，在有些系统中无法显示生
7、产厂家等信息。现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡. 。软件方面有操作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组等等。利用 WMI可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很麻烦。为此，WMI 提供了一种类似 SQL语句的查询语句，可以通过查询语句获得WMI对象下的子项。下面是一个遍历系统中安装的网卡并返回网卡 MAC地址的代码：Private Function MACAddress() As StringSet objs = GetObject(winmgmts:).ExecQuery( _SELECT MACAd
8、dress & _FROM Win32_NetworkAdapter & _WHERE & _(MACAddress Is Not NULL) & _AND (Manufacturer wbemErrCallCancelled Then注释：错误处理End IfEnd Sub 在上面的程序中定义了一个 SWbemSink对象 StatusSink，然后建立一个SWbemServices对象 Server，并将 StatusSink连接到 Server对象上。这样就可以通过 StatusSink监控程序的运行。运行程序，然后任意运行一个程序，在 Form1的 ListBox中就可以列出运行的程序
9、的信息。WMI应用最强大的一面是可以通过 WEB页面来实现远程管理。下面我们来建立一个 HTML页面，该页面可以实现向上面的 VB程序一样动态监控系统中运行的程序。监控系统中程序运行的 HTML代码如下：function window.onload() var locator = new ActiveXObject (WbemScripting.SWbemLocator); var service = locator.ConnectServer(); szQuery = SELECT * FROM _InstanceCreationEvent ; szQuery += WITHIN 1 ; s
10、zQuery += WHERE TargetInstance ISA 注释：Win32_Process 注释：; service.ExecNotificationQueryAsync(mysink,szQuery);document.all.info.innerHTML += obj.TargetInstance.Name + ; 保存代码为 Htm后缀的页面文件。双击打开网页，然后运行一个程序，在网页上就可以列出运行的程序的文件名。以上简要的介绍了一下 WMI的应用，实际上 WMI对象的操作是十分复杂，功能也是很强大的，例如你可以通过 WMI在服务器上监控整个局域网上的计算机、向局域网上的计算机批量安装软件（例如杀毒软件）。通过页面远程访问服务器，控件服务器运行程序，添加用户等。关于更多的 WMI的应用，读者可以访问 MSDN上 WMI开发的主页:http:/
