利用WMI获取系统信息

利用WMI获取系统信息2008-10-1018:12利用WMI获取系统信息WMI(WindowsManagementInstrumentation)技术是微软提供的Windows下的系统管理工具。通过该工具可以在本地或者管理客户端系统中几乎一切的信息。很多专业的网络管理工具都是基于WMI开发的。该工具在Win2000以及WinNT下是标准工具，在Win9X下是扩展安装选项。本文将介绍如何通过VB编程来访问WMI对象的编程。首先来看一个简单的通过WMI获取系统信息的范例，这个范例通过WMI对象获得系统中运行的的进程：FunctionEnum1()AsStringDimWMISetWMI=GetObject(WinMgmts:)Setobjs=WMI.InstancesOf(Win32_Process)ForEachobjInobjsEnum1=Enum1+obj.Description+Chr(13)+Chr(10)NextEndFunction在上面的代码中，首先通过GetObject(WinMgmts:)获得WMI对象，在WMI对象下有很多的子项，在这里我们通过WMI.InstancesOf(Win32_Process)获得系统中所有的进程列表子项。下面看一个完整的访问WMI对象的范例，这个范例获得计算机的信息。建立一个新工程，在Form1中添加一个TextBox控件以及一个CommandButton控件，在CommandButton的Click事件中写入以下的代码：PrivateSubCommand1_Click()Dims,System,itemDimiAsIntegerSetSystem=GetObject(winmgmts:).InstancesOf(Win32_ComputerSystem)ForEachitemInSystem注释：List1.AddItemitem.cputypes=ComputerInfo&vbCrLfs=s&***********************&vbCrLfs=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&vbCrLf注释：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&vbCrLfFori=0To1注释：这里假设安装了两个系统s=s&Chr(5)&启动选项&i&:&item.SystemStartupOptions(i)_&vbCrLfNextiNextText1.Text=sEndSub运行程序，点击Command1，在textBox中就可以显示计算机的信息。在上面的代码中，程序通过GetObject(winmgmts:)获得WMI对象，然后获得下面的Win32_ComputerSystem子项并通过访问Win32_ComputerSystem对象中的分项获得系统中的信息。需要说明的是，并不是所有的系统都支持WMI，在有些系统中无法显示生产厂家等信息。现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡...。软件方面有操作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组等等。利用WMI可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很麻烦。为此，WMI提供了一种类似SQL语句的查询语句，可以通过查询语句获得WMI对象下的子项。下面是一个遍历系统中安装的网卡并返回网卡MAC地址的代码：PrivateFunctionMACAddress()AsStringSetobjs=GetObject(winmgmts:).ExecQuery(_SELECTMACAddress&_FROMWin32_NetworkAdapter&_WHERE&_((MACAddressIsNotNULL)&_AND(Manufacturer&_注释：Microsoft注释：)))ForEachobjInobjsMACAddress=obj.MACAddressExitForNextobjEndFunction上面的代码获得WMI对象，然后运行ExecQuery执行一个WMI查询语句获得安装的网卡并返回网卡的MAC地址。WMI还支持事件处理，让程序可以处理系统事件，例如程序运行、关闭，可移动驱动器的插入、取出等。下面是一个可以对系统中运行程序进行监控的程序。首先建立一个新工程，然后点击菜单的project|references项，在references列表中选中MicrosoftWMIScriptingLibrary将WMI对象库加入工程中。然后在Form1中加入一个ListBox控件，然后在Form1中加入以下代码：OptionExplicitDimLocatorAsSWbemLocatorDimServicesAsSWbemServicesDimWithEventsStatusSinkAsSWbemSinkPrivateSubKillEvents()StatusSink.CancelSetStatusSink=NothingEndSubPrivateSubForm_Load()DimQueryAsStringSetStatusSink=NewSWbemSinkSetLocator=CreateObject(WbemScripting.SWbemLocator)SetServices=Locator.ConnectServer()Query=SELECT*FROM__InstanceCreationEventQuery=Query+WITHIN1Query=Query+WHERETargetInstanceISA注释：Win32_Process注释：Services.ExecNotificationQueryAsyncStatusSink,QueryEndSubPrivateSubStatusSink_OnObjectReady(ByValStatusEventAsSWbemObject,_ByValEventContextAsSWbemNamedValueSet)DimarrDimstrQueAsStringDimiAsIntegerList1.Cleararr=Split(StatusEvent.GetObjectText_,Chr(10))Fori=LBound(arr)ToUBound(arr)List1.AddItemarr(i)NextiEndSubPrivateSubStatusSink_OnCompleted(ByValHResultAsWbemErrorEnum,_ByValErrorObjectAsSWbemObject,_ByValEventContextAsSWbemNamedValueSet)IfHResultwbemErrCallCancelledThen注释：错误处理EndIfEndSub在上面的程序中定义了一个SWbemSink对象StatusSink，然后建立一个SWbemServices对象Server，并将StatusSink连接到Server对象上。这样就可以通过StatusSink监控程序的运行。运行程序，然后任意运行一个程序，在Form1的ListBox中就可以列出运行的程序的信息。WMI应用最强大的一面是可以通过WEB页面来实现远程管理。下面我们来建立一个HTML页面，该页面可以实现向上面的VB程序一样动态监控系统中运行的程序。监控系统中程序运行的HTML代码如下：htmlheadobjectID=mysinkCLASSID=CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223/object/headSCRIPTfunctionwindow.onload(){varlocator=newActiveXObject(WbemScripting.SWbemLocator);varservice=locator.ConnectServer();szQuery=SELECT*FROM__InstanceCreationEvent;szQuery+=WITHIN1;szQuery+=WHERETargetInstanceISA注释：Win32_Process注释：;service.ExecNotificationQueryAsync(mysink,szQuery);}/SCRIPTscriptFOR=mysinkEVENT=OnObjectReady(obj,objAsyncContext)document.all.info.innerHTML+=obj.TargetInstance.Name+br;/scriptbodyspanID=info/span/body/html保存代码为Htm后缀的页面文件。双击打开网页，然后运行一个程序，在网页上就可以列出运行的程序的文件名。以上简要的介绍了一下WMI的应用，实际上WMI对象的操作是十分复杂，功能也是很强大的，例如你可以通过WMI在服务器上监控整个局域网上的计算机、向局域网上的计算机批量安装软件（例如杀毒软件）。通过页面远程访问服务器，控件服务器运行程序，添加用户等。关于更多的WMI的应用，读者可以访问MSDN上WMI开发的主页:=/library/en-us/wmisdk/wmistart_5kth.asp获取更多信息。