Configuration Manager 報告適用的 Configuration Manager WMI 命名空間和類別

 

適用於: System Center 2012 Configuration Manager, System Center 2012 Configuration Manager SP1, System Center 2012 R2 Configuration Manager

安裝 Configuration Manager 時,會建立數個 Windows Management Instrumentation (WMI) 命名空間,還可能依據命名空間而定,在每個命名空間之下建立數百個類別。 此外,取決於特定站台設定、追蹤的清查等因素,每個站台的類別可能會和其他站台不同。

由 Configuration Manager 建立的 WMI 命名空間

下列 WMI 命名空間由 Configuration Manager 建立:

  • root\ccm

    • root\ccm\CCMPasswordSettings

    • root\ccm\CIModels

    • root\ccm\CIStateStore

    • root\ccm\CIStore

    • root\ccm\CITasks

    • root\ccm\ClientSDK

    • root\ccm\ContentTransferManager

    • root\ccm\DataTransferService

    • root\ccm\dcm

    • root\ccm\DCMAgent

    • root\ccm\evaltest

    • root\ccm\Events

    • root\ccm\InvAgt

    • root\ccm\LocationServices

    • root\ccm\Messaging

    • root\ccm\NetworkConfig

    • root\ccm\PeerDPAgent

    • root\ccm\Policy

    • root\ccm\PowerManagementAgent

    • root\ccm\RebootManagement

    • root\ccm\ScanAgent

    • root\ccm\Scheduler

    • root\ccm\SMSNapAgent

    • root\ccm\SoftMgmtAgent

    • root\ccm\SoftwareMeteringAgent

    • root\ccm\SoftwareUpdates

    • root\ccm\StateMsg

    • root\ccm\VulnerabilityAssessment

    • root\ccm\XmlStore

    • root\cimv2\sms

    • root\smsdm

    • root\sms

    • root\sms\site_<站台碼>

如何使用 Visual Basic 指令碼擷取 Configuration Manager WMI 命名空間和類別

您可藉由執行 Microsoft Visual Basic 指令碼,輕鬆列出站台上已建立的 Configuration Manager 相關類別。 下列指令碼會掃描上述所列之每個 WMI 命名空間內的所有類別,並將結果輸出至文字檔案。

若要執行指令碼來掃描 WMI 命名空間和類別

  1. 將下列程式碼複製到 [記事本]:

      '======================================================================================= 
      ' 
      ' NAME: WMIScan.vbs 
      ' 
      ' AUTHOR: Dougeby , Microsoft Corporation 
      ' DATE  : 10/24/2013 (Revised for System Center 2012 Configuration Manager by Rob Stack) 
      ' 
      ' COMMENT: Script to scan Configuration Manager WMI classes. 
      ' 
      '======================================================================================= 
    
      Dim SearchChar 
      Dim TotChar 
      Dim RightChar 
      Dim ClassName 
      Dim Computer 
      Dim strComputer 
      Dim strUser 
      Dim strPassword 
      Dim strSiteCode 
      Dim strNameSpace 
      Dim strFolder 
      Dim strFile 
      Dim strLogFile 
      Dim strFullFile 
      Dim strFullLogFile 
      Dim isError 
    
      Const ForWriting = 2 
      Const ForAppending = 8 
      Const adOpenStatic = 3 
      Const adLockOptimistic = 3 
      Const adUseClient = 3 
    
      set colNamedArguments=wscript.Arguments.Named 
      If colNamedArguments.Exists("Sitecode") Then 
        strSiteCode = colNamedArguments.Item("Sitecode") 
      Else 
        WScript.Echo "Invalid Command Line Arguments" & vbCrLf & _ 
          vbCrLf & "Usage: WMIScan.vbs /Sitecode:<sitecode> " & _ 
          "/Computer:<computername>" & vbCrLf & vbCrLf & _ 
          "Example1: WMIScan.vbs /Sitecode:PS1" & vbCrLf & _ 
          "Example2: WMIScan.vbs /Sitecode:PS1 /Computer:Computer1" 
        WScript.Quit(1) 
      End If 
      If colNamedArguments.Exists("Computer") Then 
        strComputer = colNamedArguments.Item("Computer") 
      Else strComputer = "." 
      End If 
    
      'Define the values for files and folders. 
      strFolder = "c:\WMIScan" 
      strFile = "WMIScan.txt" 
      strLogFile = "WMIScan.log" 
      strFullFile = strFolder & "\" & strFile 
      strFullLogFile = strFolder & "\" & strLogFile 
      isError = 0 
    
      'List of Configuration Manager namespaces are put into an array. 
      arrNameSpaces = Array("root\ccm","root\ccm\CCMPasswordSettings","root\ccm\CIModels",_
      "root\ccm\CIStateStore","root\ccm\CIStore","root\ccm\CITasks",_
      "root\ccm\ClientSDK","root\ccm\ContentTransferManager","root\ccm\DataTransferService",_
      "root\ccm\dcm","root\ccm\DCMAgent","root\ccm\evaltest",_
      "root\ccm\Events","root\ccm\InvAgt","root\ccm\LocationServices",_
      "root\ccm\Messaging","root\ccm\NetworkConfig","root\ccm\PeerDPAgent",_
      "root\ccm\Policy","root\ccm\PowerManagementAgent","root\ccm\RebootManagement",_
      "root\ccm\ScanAgent","root\ccm\Scheduler","root\ccm\SMSNapAgent",_
      "root\ccm\SoftMgmtAgent","root\ccm\SoftwareMeteringAgent","root\ccm\SoftwareUpdates",_
      "root\ccm\StateMsg","root\ccm\VulnerabilityAssessment","root\ccm\XmlStore",_
      "root\cimv2\sms","root\smsdm","root\sms",_
      "root\sms\site_"& strSiteCode)
    
      'Creates the folder and files for the scan output and log file. 
      Set objFSO = CreateObject("Scripting.FileSystemObject") 
    
      'Does strFolder Folder exist? If not, it's created. 
      If Not objFSO.FolderExists(strFolder) then 
        Set objFolder = objFSO.CreateFolder(strFolder) 
      End If 
    
      'Creates the WMIScan.txt and WMIScan.log files. 
      Set objFile = objFSO.CreateTextFile(strFullFile) 
      Set objLogFile = objFSO.CreateTextFile(strFullLogFile) 
      objFile.close 
      objLogFile.close 
    
      'Opens the WMIScan.log file in write mode. 
      Set objFSO = CreateObject("Scripting.FileSystemObject") 
      Set objLogFile = objFSO.OpenTextFile(strFullLogFile, ForWriting) 
      objLogFile.WriteLine "********************************************" 
      objLogFile.WriteLine " WMIScan Tool Executed - " & Now() 
      objLogFile.WriteLine "********************************************" 
    
      'Opens the WMIScan.txt file in write mode. 
      Set objFile = objFSO.OpenTextFile(strFullFile, ForWriting) 
      objLogFile.WriteLine "--------------------------------------------" 
      Computer = strComputer 
      If Computer = "." Then Computer = "Local System" 
      objLogFile.WriteLine " Scanning WMI Namespaces On " & Computer 
      objLogFile.WriteLine "--------------------------------------------" 
    
      WScript.echo "Starting WMI scan on " & Computer 
    
      'Create a collection of Namespaces from the array, and 
      ' call the EnumNameSpaces subroutine to do the scan. 
      For Each strNameSpace In arrNameSpaces 
         Call EnumNameSpaces(strNameSpace, strComputer) 
      Next 
      objLogFile.WriteLine "---------------------------------------------" 
      objLogFile.WriteLine " Done scanning WMI Namespaces on " & Computer 
      objLogFile.WriteLine "---------------------------------------------" 
    
      'Close the WMISscan.txt file. 
      objFile.close 
    
      If isError = 1 Then 
        WScript.Echo "WMI Scan has Completed with Errors!" & vbCrLf & _ 
        "Check the " & strLogFile & " file for more details." & vbCrLf & _ 
        vbCrLf & strFile & " & " & strLogFile & " have been written to "_ 
        & strFolder & "." 
      Else 
        WScript.Echo "WMI Scan has Completed without any Errors!" & _ 
        vbCrLf & vbCrLf & strFile & " & " & strLogFile & _ 
        " have been written to " & strFolder & "." 
      End If   
    
      '*************************************************************** 
      '***   Subroutine to do the classes scan on the namespace.   *** 
      '*************************************************************** 
      Sub EnumNameSpaces(strNameSpace, strComputer) 
        Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") 
        On Error Resume next 
        Set objSWbemServices= objSWbemLocator.ConnectServer (strComputer,_ 
          strNameSpace) 
        objLogFile.Write "Connecting to the \\" & strComputer & "\" &_ 
          strNameSpace & " WMI NameSpace...." 
        If Err.number = 0 Then  
          objLogFile.WriteLine "Success!!" 
          objLogFile.Write "  Scanning for Classes in "&strNameSpace _ 
            & "..." 
    
          'Create a collection of all the subclasses of the namespace. 
          Set colClasses = objSWbemServices.SubclassesOf() 
    
          'Scan all WMI classes, and write them to the scan1.txt file. 
          objFile.WriteBlanklines(1) 
          objFile.WriteLine "\\" & strComputer & "\" & strNameSpace 
    
          For Each objClass In colClasses 
            SearchChar = instr(objClass.Path_.Path, ":") 
            TotChar = len(objClass.Path_.Path) 
            RightChar = TotChar - SearchChar 
            ClassName = right(objClass.Path_.Path,RightChar) 
            objFile.WriteLine "   " & ClassName 
          Next 
          objLogFile.WriteLine "Success!!" 
        ElseIf Err.Number = -2147024891 Then 
          objLogFile.WriteLine "Error " & Err.Number & _ 
            "! Connection to "& strComputer & " Failed!" 
          isError = 1 
        Elseif Err.Number = -2147217394 Then 
          objLogFile.WriteLine "Error " & Err.Number & "!! Namespace "&_ 
            strNameSpace & " NOT Found!!" 
          isError = 1   
        Else 
          objLogFile.WriteLine "Error " & Err.Number & "!!" 
        isError = 1 
        End If 
    
      End Sub
    
  2. 建立名為 C:\WMIScan 的資料夾。

  3. 將指令碼儲存為 C:\WMIScan 資料夾中的 WMIScan.vbs。

  4. 透過以下方式開啟命令提示字元視窗:

  5. 輸入 C:\WMIScan\WMIScan.vbs /sitecode:ABC ,然後按一下 Enter。 請務必將 ABC 取代為適當的站台碼。

    System_CAPS_note注意事項

    上述命令列會假設指令碼是從 Configuration Manager 站台伺服器執行。 若要連線到遠端站台伺服器上的 WMI,請使用 /computer:<computername> 引數來指定遠端電腦。 例如,若要連線到 Computer1 上的 ABC 站台碼 ,您要在命令列中輸入 C:\WMIScan\WMIScan.vbs /sitecode:ABC /computer:Computer1。

在 Configuration Manager 主要站台伺服器上執行時,指令碼會建立一個文字檔 (在 C:\WMIScan 中),其中包含 Configuration Manager 每個 WMI 命名空間的所有 WMI 類別。 不論掃描是否成功,記錄檔都會列出所有已掃描的命名空間。 請注意,依據已設定的選項而定,部分命名空間將不會顯示在某些站台伺服器上。