Nota
O acesso a esta página requer autorização. Podes tentar iniciar sessão ou mudar de diretório.
O acesso a esta página requer autorização. Podes tentar mudar de diretório.
Representa um fluxo de resultados retornados de operações, como uma operação de pull. Por exemplo, o método Session.Enumerate retorna vários resultados.
Membros
O objeto Enumerator tem estes tipos de membros:
Métodos
O objeto Enumerator tem esses métodos.
| Método | Descrição |
|---|---|
| Readitem | Recupera um item do recurso e retorna uma representação XML do item. |
Propriedades
O objeto Enumerator tem essas propriedades.
| Propriedade | Descrição |
|---|---|
|
AtEndOfStream |
Obtém um valor booliano que indica se há mais itens na coleção. |
|
Erro do |
Obtém uma representação XML de informações de erro adicionais. |
Comentários
Para iniciar uma enumeração, use Session.Enumerate. Para fazer uma operação WS-Enumeration:Pull que continua lendo itens na enumeração, use Enumerator.ReadItem.
O objeto Enumerator corresponde à interface IWSManEnumerator .
Exemplos
O exemplo de código VBScript a seguir enumera todos os discos em um computador remoto especificado pelo nome de domínio totalmente qualificado (servername.domain.com). A sub-rotina DisplayOutput formata a saída de dados da mesma forma que a ferramenta 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
Requisitos
| Requisito | Valor |
|---|---|
| Cliente mínimo com suporte |
Windows Vista |
| Servidor mínimo com suporte |
Windows Server 2008 |
| Cabeçalho |
|
| IDL |
|
| Biblioteca |
|
| DLL |
|