在Autoit中使用WMI：第二部分

autoit · 发表于 2008-5-3 14:19:51

五、获得类的集合对象的方法方法1.使用InstancesOf方法<blockquote dir="ltr" style="margin-right: 0px">InstancesOf方法的语法参数格式如下：SwbemServices.InstancesOf(strClass)strClass为类名，例如"Win32_Service"。范例：$wbemObjectSet = $wbemServices.InstancesOf("Win32_Service")我在第一个例子里就是用这种方法来获取Win32_LogicalMemoryConfiguration类的实例集合。</blockquote>方法2.使用ExecQuery方法<blockquote dir="ltr" style="margin-right: 0px">与InstancesOf方法不同，ExecQuery方法可以通过查询语句，只返回匹配部分实例和属性。ExecQuery方法的语法参数格式如下：SwbemServices.ExecQuery(strQuery, [ strQueryLanguage = "WQL" ],[ iFlags ],[ objWbemNamedValueSet ]strQuery为WQL(WMI Query Language)查询的字符串，具体语法可以查看<a href="http://msdn2.microsoft.com/en-us/library/aa392902.aspx">这里</a>，下面是几个例子：SELECT * FROM Win32_LogicalDisk ; 即获取Win32_LogicalDisk类的全部集合对象SELECT * FROM Win32_NTLogEvent WHERE Logfile = 'Application",,48 ; 从Win32_NTLogEvent类中获取名为"Application"的全部实例SELECT * FROM __InstanceModificationEvent WITHIN 10 WHERE TargetInstance ISA 'Win32_Service' AND TargetInstance._Class = 'win32_TerminalService' ; 当Win32_NTLogEvent有新的实例建立时发出通知（这属于WMI事件，具体内容后文再提）而ExecQuery方法的后几个参数很少会用到，有兴趣的话可以在<a href="http://msdn2.microsoft.com/en-us/library/aa393866.aspx">这里</a>了解更多。使用范例：$wbemObjectSet = $wbemServices.ExecQuery("select * from Win32_Service")</blockquote>方法3.使用Get方法<blockquote dir="ltr" style="margin-right: 0px">和上面两种方法不同，Get方法获得的是单个的对象。比方说，下面的代码能列举出全部的系统服务：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $wbemServices = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $wbemObjectSet = $wbemServices.InstancesOf("Win32_Service") For $wbemObject In $wbemObjectSet ConsoleWrite("Name: " & $wbemObject.Name & @CrLf & _ "Display Name: " & $wbemObject.DisplayName & @CrLf & _ " Description: " & $wbemObject.Description & @CrLf & _ " Path Name: " & $wbemObject.PathName & @CrLf & _ " Start Mode: " & $wbemObject.StartMode & @CrLf & _ " State: " & $wbemObject.State & @CrLf & @CrLf ) Next</blockquote>如果我改用Get方法的话，我们会得到单独的对象，下面的代码是只显示Name为ALG的服务的相关信息：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $wbemServices = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $wbemObjectSet = $wbemServices.Get("Win32_Service.Name='ALG'") ConsoleWrite("Name: " & $wbemObjectSet.Name & @CrLf & _    "Display Name: " & $wbemObjectSet.DisplayName & @CrLf & _    " Description: " & $wbemObjectSet.Description & @CrLf & _    " Path Name: " & $wbemObjectSet.PathName & @CrLf & _    " Start Mode: " & $wbemObjectSet.StartMode & @CrLf & _    " State: " & $wbemObjectSet.State & @CrLf & @CrLf )</blockquote>在这两个例子中，后一个例子里的$wbemObjectSet的意义等同于前一个例子里的$wbemObject。Get方法的格式如下：SwbemServices.Get([strObjectPath][.KeyProperty='Value'])strObjectPath是类的名字，KeyProperty是主键属性名，Value是指定的主键属性值。需要注意的是，你要获取的对象的KeyProperty='Value'必须有别于其他对象，否则就会出错。比如下面的代码就无法正常运行：<blockquote dir="ltr" style="margin-right: 0px">$wbemServices.Get("Win32_Service.State ='Stopped'")</blockquote></blockquote>方法4.直接用用moniker名字法<blockquote dir="ltr" style="margin-right: 0px">如果你仔细阅读过第4节的话，应该会发现用moniker名字法不但能建立命名空间，还可以获取类和单独的实例。具体语法我就不再复述了，下面是两个范例：1.获取Win32_Service类<blockquote dir="ltr" style="margin-right: 0px">$wbemObjectSet = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2:Win32_Service")</blockquote>2.获取Win32_Service类下Name属性为winmgmt的对象<blockquote dir="ltr" style="margin-right: 0px">$wbemObject = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2:Win32_Service.name='winmgmt'")</blockquote></blockquote>六、深入了解命名空间1.管理脚本的默认命名空间<blockquote dir="ltr" style="margin-right: 0px">默认情况下，我们用下面的代码就能连接到root\cimv2命名空间：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $wbemServices = ObjGet("winmgmts:\\" & $strComputer )</blockquote>这段代码没有指定目标命名空间，则脚本连接到由下列注册表设置识别的命名空间：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WBEM\Scripting\Default 命名空间命名空间root\cimv2被初始配置为脚本默认的命名空间；但是，默认的脚本命名空间可以很容易地进行更改。因此，我们应该始终在WMI 脚本中标识一个托管资源的命名空间，而不是采用默认设置：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $wbemServices = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")</blockquote>如果我们想查看脚本的默认命名空间的话，可以用下面的代码：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $wbemServices = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colWMISettings = $wbemServices.InstancesOf("Win32_WMISetting") For $objWMISetting in $colWMISettings ConsoleWrite("Default namespace for scripting: " & _ $objWMISetting.ASPScriptDefaultNamespace & @CrLf ) Next</blockquote>同样的，你还可以用下面的代码来设置默认的命名空间：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $wbemServices = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") For $objWMISetting in $colWMISettings $objWMISetting.ASPScriptDefaultNamespace = "root\cimv2" $objWMISetting.Put_ Next</blockquote></blockquote>2.列出命名空间<blockquote dir="ltr" style="margin-right: 0px">读到这里，我们仅仅了解到root\cimv2这一个命名空间，不过通过WMI自身我们也能知道其他的命名空间。WMI的命名空间信息可以通过__NAMESPACE类下的实例搜索到，下面的例子是用来搜索所有root\...形式的命名空间：<blockquote dir="ltr" style="margin-right: 0px">$objServices = ObjGet("winmgmts:\\" & $strComputer & "\root") $colNameSpaces = $objServices.InstancesOf("__NAMESPACE") For $objNameSpace In $colNameSpaces ConsoleWrite( $objNameSpace.Name & @CrLf ) Next</blockquote>你可能已经注意到，上面的代码不提供目标计算机上所有可用的命名空间的完整描述。它只检索并显示在单一的、指定命名空间下的命名空间。为了在本地或远程的启用 WMI 的计算机上回显所有命名空间，我们可以通过递归来连接到并枚举每个命名空间：<blockquote dir="ltr" style="margin-right: 0px">#include <array.au3> Dim $strCsvListOfNamespaces EnumNameSpaces("root", $strCsvListOfNamespaces) $arrNamespaces = StringSplit($strCsvListOfNamespaces, ",") _ArrayDisplay($arrNamespaces) Func EnumNamespaces($strNamespace, ByRef $tmpCsvListOfNamespaces) If $tmpCsvListOfNamespaces = "" Then $tmpCsvListOfNamespaces = $strNamespace Else $tmpCsvListOfNamespaces = $tmpCsvListOfNamespaces & "," & $strNamespace EndIf $strComputer = "." $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\" & $strNameSpace) If not @error Then    $colNameSpaces = $objWMIService.InstancesOf("__NAMESPACE") For $objNameSpace In $colNameSpaces EnumNamespaces($strNameSpace & "\" & $objNameSpace.Name, $tmpCsvListOfNamespaces) Next Else $tmpCsvListOfNamespaces="" EndIf EndFunc</blockquote></blockquote>3.列出类<blockquote dir="ltr" style="margin-right: 0px">下面的代码列出了所有在root\cimv2命名空间中定义的类：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $wbemServices = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colClasses = $wbemServices.SubclassesOf() For $objClass In $colClasses ConsoleWrite( $objClass.Path_.Path & @CrLf ) Next</blockquote></blockquote>4.列出指定对象的属性<blockquote dir="ltr" style="margin-right: 0px">下面的代码列出了Win32_Service类下的实例能使用的属性（还记得上面的那个列出服务的代码吗？里面所使用的属性可以这样查到）：<blockquote dir="ltr" style="margin-right: 0px">$strComputer = "." $strClass = "Win32_Service" $wbemServices = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $objClass = $wbemServices.Get($strClass) For $objProperty in $objClass.Properties_() ; Must use (), because method ends with an underscore ConsoleWrite ($objProperty.Name& @CrLf ) Next</blockquote></blockquote>七、WMI编程常用资源1.AutoIt Script-o-matic<blockquote dir="ltr" style="margin-right: 0px">你可以在<a href="http://www.autoitscript.com/forum/index.php?automodule=downloads&showfile=29">这里</a>下载到这个工具。这个工具能够列出指定命名空间下的全部类，并显示出该类的全部属性。你还能用这个工具导出AU3脚本。</blockquote>2.MSDN<blockquote dir="ltr" style="margin-right: 0px"><a href="http://www.microsoft.com/technet/scriptcenter/tools/scripto2.mspx">Scriptomatic 2.0</a> 官方的WMI查询工具<a href="http://msdn2.microsoft.com/en-us/library/aa394572.aspx">WMI Reference</a> WMI的全部信息<a href="http://msdn2.microsoft.com/en-us/library/aa392902.aspx">Querying with WQL</a> WQL查询语法<a href="http://msdn2.microsoft.com/en-us/library/aa394585.aspx">WMI Tasks for Scripts and Applications</a> 官方WMI范例</blockquote>

UID · 发表于 2008-12-16 11:22:26

这么好的文章没人顶

askask150 · 发表于 2008-12-18 04:34:42

到六了还是看不懂这个可以做什么

先收藏了以后碰到再用

光明之风 · 发表于 2008-12-19 11:15:49

收藏学习``谢谢分享!

lantu · 发表于 2009-1-13 10:05:04

学习研究中，大好啦

foolbyrd · 发表于 2009-10-13 20:48:39

正在学习找这方面的资料，学习了，谢谢LZ

汲水先生 · 发表于 2009-10-22 14:53:41

收藏学习``谢谢分享!

871224 · 发表于 2009-10-30 10:11:45

顶顶顶顶顶顶顶顶顶顶顶顶顶顶

mozha · 发表于 2009-11-13 20:28:16

先收藏了以后碰到再用

javarike · 发表于 2010-3-24 15:23:24

大力支持啊。。

ssmusic · 发表于 2013-10-21 23:26:36

学习，谢谢楼主。

sun8835 · 发表于 2013-10-27 17:55:57

好文章，认真学习，感谢分享

		自动登录	找回密码
密码			加入