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

  • Статья

Метод 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 , и метод 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, который поддерживается в объекте Enumerator .

    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