Enumerator - объект

Статья
06/12/2023

Представляет поток результатов, возвращаемых операциями, такими как операция извлечения. Например, метод Session.Enumerate возвращает несколько результатов.

Элементы

Объект Перечислитель имеет следующие типы элементов:

Методы
Свойства

Методы

Объект Перечислитель содержит эти методы.

Метод	Описание
ReadItem	Извлекает элемент из ресурса и возвращает XML-представление элемента.

Свойства

Объект Перечислитель имеет эти свойства.

Свойство	Описание
AtEndOfStream	Возвращает логическое значение, указывающее, есть ли в коллекции больше элементов.
Ошибка	Возвращает XML-представление дополнительных сведений об ошибке.

Чтобы начать перечисление, используйте Session.Enumerate. Чтобы выполнить операцию WS-Enumeration:Pull , которая продолжает чтение элементов перечисления, используйте Enumerator.ReadItem.

Объект Enumerator соответствует интерфейсу IWSManEnumerator .

Примеры

В следующем примере кода VBScript перечисляются все диски на удаленном компьютере, заданном полным доменным именем (servername.domain.com). Подпрограмма DisplayOutput форматирует выходные данные так же, как средство WinRM.cmd.

Option Explicit

Const RemoteComputer = "MIG50-64D.mig.net"

Dim objWsman, objSession, strResource
Dim objResultSet

Set objWsman = CreateObject( "WSMan.Automation" )
Set objSession = objWsman.CreateSession( "https://" _
    & RemoteComputer )
strResource = "http://schemas.microsoft.com/wbem/wsman/1/" _
     & "wmi/root/cimv2/Win32_OperatingSystem"
Dim iFlag
iFlag = objWsman.EnumerationFlagReturnObjectAndEPR or _
    objWsman.EnumerationFlagHierarchyDeep
Set objResultSet = _
    objSession.Enumerate( strResource, "", "",  iFlag)
While Not objResultSet.AtEndOfStream
    DisplayOutput( objResultSet.ReadItem ) 
Wend


'****************************************************
' 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 Vista
Минимальная версия сервера	Windows Server 2008
Заголовок	WSManDisp.h
IDL	WSManDisp.idl
Библиотека	WSManDisp.tlb
DLL	WSMAuto.dll

См. также раздел

API скриптов WinRM
Перечисление или перечисление всех экземпляров ресурса
Создание скриптов в удаленном управлении Windows

Поделиться через