Objeto Enumerator
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.
O objeto Enumerator tem estes tipos de membros:
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. |
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. |
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 .
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
Requisito | Valor |
---|---|
Cliente mínimo com suporte |
Windows Vista |
Servidor mínimo com suporte |
Windows Server 2008 |
Cabeçalho |
|
IDL |
|
Biblioteca |
|
DLL |
|