VisualBasic编程访问WMI对象
2018-06-17 17:13:16来源:未知 阅读 ()
首先来看一个简单的通过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
获取更多信息。
->标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
- 设置对VisualBasic数据库连接的动态路径 2018-06-17
- 在Windows98中使用VB5.0编程疑难一解 2018-06-17
- 用VisualBasic开发绿色软件的探讨 2018-06-17
- 利用VisualBasic实现木马攻击 2018-06-17
- HierarchicalFlexGrid控件 2018-06-17
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash