WMI.rar_wmi

'请参考以下地址获取 WMI 参考信息：http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_reference.asp. '在 Windows XP 或 Windows Server 2003 上，用户可以使用以下脚本搜索类名中包含特定关键字的类。 请将该脚本保存为一个名为 Search.vbs 的文本文件然后'运行，并指定想要搜索的关键字。例如，想要搜索名称中包含 “service”的类， '请在命令提示行运行以下命令： cscript search.vbs service ' Script for finding a class in WMI Repository Set args = wscript.arguments If args.Count <= 0 Then Wscript.Echo "Tool to search for a matching class in the WMI Repository. " Wscript.Echo "USAGE: <keywordToSearch> [<namespaceToSearchIn>]" Wscript.Echo "Example1: Cscript search.vbs service" Wscript.Echo "Example2: Cscript search.vbs video root\cimv2" Else ' If no Namespace is specified then the Default is the ROOT namespace rootNamespace = "\\.\ROOT" keyword = args(0) If args.Count > 1 Then rootNamespace = args(1) End If EnumNameSpace rootNamespace Wscript.Echo vbNewLine End if ' Subroutine to recurse through the namespaces Sub EnumNameSpace(parentNamespaceName) Set objService = GetObject("winmgmts:" & parentNamespaceName) Set collMatchingClasses = objService.Execquery _ ("Select * From meta_class Where __class " & _ "Like '%" & keyword & "%'") If (collMatchingClasses.count > 0) Then Wscript.Echo vbNewLine Wscript.Echo vbNewLine Wscript.Echo "Matching Classes Under Namespace: " & parentNamespaceName For Each matchingClass in collMatchingClasses Wscript.Echo " " & matchingClass.Path_.CLASS Next End if Set collSubNamespaces = objService.Execquery _ ("select * from __namespace") For Each subNameSpace in collSubNamespaces EnumNameSpace subNameSpace.path_.namespace + _ "\" + subNameSpace.Name Next End Sub '该脚本只能运行在 Windows XP 或 Server 2003 之上，因为作为 WMI 查询语言一部分的 LIKE 运算符只能用于这两个平台。