wmi(windowsmanagementinstrumentation)技术是微软提供的windows下的系统管理工具。通过该工具可以在本地或者管理客户端系统中几乎一切的信息。很多专业的网络管理工具都是基于wmi开发的。该工具在win2000以及winnt下是标准工具，在win9x下是扩展安装选项。本文将介绍如何通过vb编程来访问wmi对象的编程。
首先来看一个简单的通过wmi获取系统信息的范例，这个范例通过wmi对象获得系统中运行的的进程：
functionenum1()asstring
dimwmi
setwmi=getobject("winmgmts:")
setobjs=wmi.instancesof("win32_process")
foreachobjinobjs
enum1=enum1 obj.description chr(13) chr(10)
next
endfunction
在上面的代码中，首先通过getobject("winmgmts:")获得wmi对象，在wmi对象下有很多的子项，在这里我们通过wmi.instancesof("win32_process")获得系统中所有的进程列表子项。
下面看一个完整的访问wmi对象的范例，这个范例获得计算机的信息。
建立一个新工程，在form1中添加一个textbox控件以及一个commandbutton控件，在commandbutton的click事件中写入以下的代码：
privatesubcommand1_click()
dims,system,item
dimiasinteger
setsystem=getobject("winmgmts:").instancesof("win32_computersystem")
foreachiteminsystem
‘list1.additemitem.cputype
s="computerinfo"&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‘获得工作组和域的选项不能同时用
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
fori=0to1‘这里假设安装了两个系统
s=s&chr(5)&"启动选项"&i&":"&item.systemstartupoptions(i)_
&vbcrlf
nexti
next
text1.text=s
endsub
运行程序，点击command1，在textbox中就可以显示计算机的信息。
在上面的代码中，程序通过getobject("winmgmts:")获得wmi对象，然后获得下面的win32_computersystem子项并通过访问win32_computersystem对象中的分项获得系统中的信息。
需要说明的是，并不是所有的系统都支持wmi，在有些系统中无法显示生产厂家等信息。
现在的计算机以及网络组成十分复杂。例如系统硬件方面就有主板、硬盘、网卡...。
软件方面有操作系统、系统中安装的软件、正在运行的进程等等。网络方面有域、工作组等等。利用wmi可以访问上面的全部信息，但是如果向上面一样的利用分项来访问的话会很麻烦。为此，wmi提供了一种类似sql语句的查询语句，可以通过查询语句获得wmi对象下的子项。
下面是一个遍历系统中安装的网卡并返回网卡mac地址的代码：
privatefunctionmacaddress()asstring
setobjs=getobject("winmgmts:").execquery(_
"selectmacaddress"&_
"fromwin32_networkadapter"&_
"where"&_
"((macaddressisnotnull)"&_
"and(manufacturer＜＞"&_
"‘microsoft‘))")
foreachobjinobjs
macaddress=obj.macaddress
exitfor
nextobj
endfunction
上面的代码获得wmi对象，然后运行execquery执行一个wmi查询语句获得安装的网卡并返回网卡的mac地址。
wmi还支持事件处理，让程序可以处理系统事件，例如程序运行、关闭，可移动驱动器的插入、取出等。下面是一个可以对系统中运行程序进行监控的程序。
首先建立一个新工程，然后点击菜单的project references项，在references列表中选中microsoftwmiscriptinglibrary将wmi对象库加入工程中。然后在form1中加入一个listbox控件，然后在form1中加入以下代码：
optionexplicit
dimlocatorasswbemlocator
dimservicesasswbemservices
dimwitheventsstatussinkasswbemsink
privatesubkillevents()
statussink.cancel
setstatussink=nothing
endsub
privatesubform_load()
dimqueryasstring
setstatussink=newswbemsink
setlocator=createobject("wbemscripting.swbemlocator")
setservices=locator.connectserver()
query="select*from__instancecreationevent"
query=query "within1"
query=query "wheretargetinstanceisa‘win32_process‘"
services.execnotificationqueryasyncstatussink,query
endsub
privatesubstatussink_onobjectready(byvalstatuseventasswbemobject,_
byvaleventcontextasswbemnamedvalueset)
dimarr
dimstrqueasstring
dimiasinteger
list1.clear
arr=split(statusevent.getobjecttext_,chr(10))
fori=lbound(arr)toubound(arr)
list1.additemarr(i)
nexti
endsub
privatesubstatussink_oncompleted(byvalhresultaswbemerrorenum,_
byvalerrorobjectasswbemobject,_
byvaleventcontextasswbemnamedvalueset)
ifhresult＜＞wbemerrcallcancelledthen
‘错误处理
endif
endsub
在上面的程序中定义了一个swbemsink对象statussink，然后建立一个swbemservices对象server，并将statussink连接到server对象上。这样就可以通过statussink监控程序的运行。
运行程序，然后任意运行一个程序，在form1的listbox中就可以列出运行的程序的信息。
wmi应用最强大的一面是可以通过web页面来实现远程管理。下面我们来建立一个html页面，该页面可以实现向上面的vb程序一样动态监控系统中运行的程序。监控系统中程序运行的html代码如下：
＜html＞
＜head＞
＜objectid="mysink"classid="clsid:75718c9a-f029-11d1-a1ac-00c04fb6c223"＞＜/object＞
＜/head＞
＜script＞
functionwindow.onload()
{
varlocator=newactivexobject("wbemscripting.swbemlocator");
varservice=locator.connectserver();
szquery="select*from__instancecreationevent";
szquery ="within1";
szquery ="wheretargetinstanceisa‘win32_process‘";
service.execnotificationqueryasync(mysink,szquery);
}
＜/script＞
＜scriptfor="mysink"event="onobjectready(obj,objasynccontext)"＞
document.all.info.innerhtml =obj.targetinstance.name "＜br＞";
＜/script＞
＜body＞
＜spanid="info"＞＜/span＞
＜/body＞
＜/html＞
保存代码为htm后缀的页面文件。双击打开网页，然后运行一个程序，在网页上就可以列出运行的程序的文件名。
以上简要的介绍了一下wmi的应用，实际上wmi对象的操作是十分复杂，功能也是很强大的，例如你可以通过wmi在服务器上监控整个局域网上的计算机、向局域网上的计算机批量安装软件（例如杀毒软件）。通过页面远程访问服务器，控件服务器运行程序，添加用户等。关于更多的wmi的应用，读者可以访问msdn上wmi开发的主页:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmistart_5kth.asp
获取更多信息。
->
