Перечисление или перечисление всех экземпляров ресурса

Метод Session.Enumerate — это Windows подход удаленного управления для получения всех экземпляров указанного ресурса.

Метод Session.Enumerate не получает коллекцию в объекте SWbemObjectSet , например вызов SWbemService.ExecQuery с запросом WMI в качестве параметра (например, ) или вызов метода, ExecQuery("SELECT * from Win32_LogicalDisk")например , SWbemObject.Instances_. Методы объекта Session.Enumerate и Enumerator гораздо больше похожи на операцию объекта TextStream, используемого для чтения файлов в виде потока.

Для чтения файлов в виде текстового потока необходимо создать объект TextStream для создания скриптов и вызвать метод TextStream.Readline для чтения каждой строки файла. Аналогичным образом можно вызвать метод Session.Enumerate , чтобы получить объект Перечислителя и вызвать метод Enumerator.ReadItem , чтобы получить следующий элемент. Как и в случае при чтении из текстового файла, можно вызвать свойство Enumerator.AtEndOfStream , чтобы проверить, достигли ли вы конца элементов данных.

Перечисление ресурса

  1. Создание сеанса.

    Const RemoteComputer = "servername.domain.com"
    Set objWsman = CreateObject( "WSMan.Automation" )
    Set objSession = objWsman.CreateSession( "https://" _
        & RemoteComputer )
    
  2. Создайте универсальный код ресурса (URI) для идентификации ресурса.

    strResource = "http://schemas.microsoft.com/wbem/wsman/1/" &_
                 "wmi/root/cimv2/Win32_ScheduledJob"
    
  3. Вызовите метод Session.Enumerate . Этот вызов запускает перечисление. В WinRM операция перечисления не получает коллекцию так же, как и WMI. Вместо этого метод Session.Enumerate устанавливает контекст перечисления протокола WS-Management, который поддерживается в объекте Перечислителя .

    Set EnumJobs = objSession.Enumerate( strResource )
    
  4. Вызовите метод Enumerator.ReadItem , чтобы получить следующий элемент результатов. В протоколе WS-Management это соответствует операции извлечения. Используйте метод Enumerator.AtEndOfStream в качестве элемента управления, чтобы узнать, когда следует прекратить чтение.

    While Not EnumJobs.AtEndOfStream
        NumOfJobs = NumOfJobs + 1
        DisplayOutput( EnumJobs.ReadItem ) 
    Wend
    

В следующем примере кода VBScript показан полный скрипт.

Const RemoteComputer = "servername.domain.com"
Set objWsman = CreateObject( "WSMan.Automation" )
Set objSession = objWsman.CreateSession( "https://" & RemoteComputer )
strResource = "http://schemas.microsoft.com/wbem/wsman/1/" &_
              "wmi/root/cimv2/Win32_ScheduledJob"

Set EnumJobs = objSession.Enumerate( strResource )
NumOfJobs = 0
While Not EnumJobs.AtEndOfStream
    NumOfJobs = NumOfJobs + 1
    DisplayOutput( EnumJobs.ReadItem ) 
Wend
Wscript.Echo "There are " & NumOfJobs & " jobs scheduled."

'****************************************************
' Displays WinRM XML message using built-in XSL
'****************************************************
Sub DisplayOutput( strWinRMXml )
    Dim xmlFile, xslFile
    Set xmlFile = CreateObject( "MSXml2.DOMDocument.3.0" ) 
    Set xslFile = CreateObject( "MSXml2.DOMDocument.3.0" )
    xmlFile.LoadXml( strWinRMXml )
    xslFile.Load( "WsmTxt.xsl" )
    Wscript.Echo xmlFile.TransformNode( xslFile ) 
End Sub

Сведения об удаленном управлении Windows

Использование удаленного управления Windows

Справочник по удаленному управлению Windows