Propriedade Enumerator.AtEndOfStream
Obtém um valor booliano que indica se há mais itens na coleção.
Esta propriedade é somente para leitura.
Syntax
Enumerator.AtEndOfStream As BOOLEAN
Valor da propriedade
Verdade
Não há mais itens na coleção.
False
Mais itens estão disponíveis.
Comentários
Se você liberar o objeto Enumerador depois de obter todos os dados necessários, todas as solicitações de enumeração pendentes serão removidas. Para obter mais informações, consulte Enumerando ou listando todas as instâncias de um recurso.
Exemplos
O exemplo de VBScript a seguir enumera instâncias do sistema operacional. Observe que a liberação do objeto de enumeração limpa todas as solicitações de enumeração pendentes. A sub-rotina DisplayOutput formata a saída de dados da mesma forma que a ferramenta 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
Requisitos
| Requisito | Valor |
|---|---|
| Cliente mínimo com suporte |
Windows Vista |
| Servidor mínimo com suporte |
Windows Server 2008 |
| Cabeçalho |
|
| IDL |
|
| Biblioteca |
|
| DLL |
|