Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Представляет поток результатов, возвращаемых операциями, такими как операция извлечения. Например, метод 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 |
| Заголовок |
|
| IDL |
|
| Библиотека |
|
| DLL |
|