Свойство Enumerator.AtEndOfStream

Возвращает логическое значение, указывающее, есть ли в коллекции дополнительные элементы.

Это свойство доступно только для чтения.

Синтаксис

Enumerator.AtEndOfStream As BOOLEAN

Значение свойства

Комментарии

Если освободить объект Перечислитель после получения всех необходимых данных, все ожидающие запросы перечисления удаляются. Дополнительные сведения см. в разделе Перечисление или перечисление всех экземпляров ресурса.

Примеры

В следующем примере VBScript перечисляются экземпляры операционной системы. Обратите внимание, что освобождение объекта перечисления очищает все ожидающие запросы перечисления. Подпрограмма DisplayOutput форматирует выходные данные так же, как средство WinRM.cmd.

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_OperatingSystem"

Set objResultSet = objSession.Enumerate( strResource )

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

Требования

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

Перечислитель

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