利用WMI获取系统信息.docxVIP

利用 WMI 获取系统信息2008-10-10 18:12 利用 WMI 获取系统信息 WMI(Windows Management Instrumentation)技术是微软提供的 Windows 下的系统管理工具。通过该工具可以在本地或者管理客户端系统中几乎一切的信息。很多专业的网络管理工具都是基于 WMI 开发的。该工具在 Win2000 以及 WinNT 下是标准工具，在 Win9X 下是扩展安装选项。本文将介绍如何通过 VB 编程来访问 WMI 对象的编程。 首先来看一个简单的通过 WMI 获取系统信息的范例，这个范例通过 WMI 对象获得系统中运行的的进程： 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) NextEnd Function 在上面的代码中，首先通过 GetObject(WinMgmts:)获得 WMI 对象，在WMI 对象下有很多的子项，在这里我们通过 WMI.InstancesOf(Win32_Process) 获得系统中所有的进程列表子项。 下面看一个完整的访问 WMI 对象的范例，这个范例获得计算机的信息。 建立一个新工程，在 Form1 中添加一个 TextBox 控件以及一个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 计算机名称: 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 注释：获得工 作组和域的选项不能同时用 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 For i = 0 To 1 注释：这里假设安装了两个系统 s = s Chr(5) 启动选项 i : item.SystemStartupOptions(i) _ vbCrLf Next i Next Text1.Text = s End Sub 运行程序，点击 Command1，在 textBox 中就可以显示计算机的信息。 在上面的代码中，程序通过GetObject(winmgmts:)获得 WMI 对象，然后获得下面的 Win32_ComputerSystem 子项并通过访问Win32_ComputerSystem 对象中的分项获得系统中的信息。 需要说明的是，并不是所有的系统都支持WMI，在有些系统中无法显示生产厂家等信息。 现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡... 。 软件方面有操作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组 等等。利用 WMI 可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很 麻烦。为此，WMI 提供了一种类似 SQL 语句的查询语句，可以通过查询语句获得