Свойство 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
Требования
| Требование | Значение |
|---|---|
| Минимальная версия клиента |
Windows Vista |
| Минимальная версия сервера |
Windows Server 2008 |
| Заголовок |
|
| IDL |
|
| Библиотека |
|
| DLL |
|