Dim strComputer As String = ".", i, intValue As Integer
Dim colItems, objWMIService, objItem
objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
For i = 1 To 5
Threading.Thread.Sleep(1000)
colItems = objWMIService.ExecQuery("Select * From Win32_PerfRawData_PerfProc_Process Where Name = ''''devenv''''")
For Each objItem In colItems
intValue = objItem.HandleCount
Console.WriteLine("打开的句柄数 :" & intValue)
Next
Next
End Sub
End Module
使用Getobject函数创建对象多用于脚本中,所以参数为WMI脚本库的标记名"winmgmts:"和目标电脑名,上述的strComputer="."相当于localhost,若在远程计算机上执行则需将”.”改这相应的计算机名。
其中:
ManagementObject:单个管理对象
ManagementClass:单个管理类
ManagementObjectSearcher:查询管理对象及管理类的集合
ManagementEventWatcher:监视来自 WMI 的事件
ManagementQuery:用作所有查询类的基础。
也可以从脚本中创建:
Set oLocator = CreateObject("WbemScripting.SWbemLocator") '''' New SWbemLocator If Err.Number <> 0 Then MsgBox "Windows Management (WMI) 不能被创建” & Err.Description WScript.Quit(0) End If
-----------------------------------------------------------------------
set locator = createobject("WbemScripting.SwbemLocator") set server = locator.ConnectServer ("\\192.168.0.1\root\cimv2","username","password") set p_obj = server.execquery("select * form Win32_operatingsystem") for each p_objswbem in p_obj p_objswbem.reboot ‘从新启动 next
WMI 的有关概述请参考 MSDN 或 http://www.csdn.net/develop/Article/19/19157.shtm
上一页 [1] [2] [办公软件]使用TRIMMEAN函数去除几个最高分和几个最低分之后… [操作系统]几个常用的DOS网络命令详解 [网络技术]常被宽带共享上网用户关注的几个问题 [电脑技术]衡量CPU性能的几个参数指标介绍 [电脑技术]使用扫描仪的几个常规高级技巧 [电脑技术]使用电子邮件EMail应注意的几个问题 [VB.NET程序]VB.NET下通过WMI共享文件夹 [VB.NET程序]几个 WMI 的例子(初级) - 1 [VB.NET程序]几个 WMI 的例子(初级) - 2 [VB.NET程序]几个 WMI 的例子(初级) - 3
|