Método Enumerator.ReadItem
Recupera um item do recurso e retorna uma representação XML do item.
Sintaxe
Enumerator.ReadItem( _
ByVal resource _
)
Parâmetros
-
recurso
-
O URI do item.
Valor retornado
A representação XML do item.
Comentários
Para limitar o número de itens lidos, defina a propriedade Session.BatchItems .
Observe que a liberação do objeto de enumeração limpa todas as solicitações de enumeração pendentes.
O método Session.Enumerate não obtém uma coleção da mesma forma que uma consulta WMI, como SELECT * from Win32_LogicalDisk, retorna uma coleção em um SWbemObjectSet. Para ler um arquivo como um fluxo de texto, crie o objeto TextStream de script e chame o método TextStream.Readline para ler cada linha do arquivo. De maneira semelhante, você chama o método Session.Enumerate para obter um objeto Enumerator e, em seguida, chama o método Enumerator.ReadItem . Assim como na leitura do arquivo de texto, você pode marcar a propriedade Enumerator.AtEndOfStream para marcar se você atingiu o final dos itens de dados.
Exemplos
O exemplo de VBScript a seguir chama o método Session.Enumerate para obter uma lista de trabalhos agendados. A sub-rotina DisplayOutput usa o arquivo de transformação XML da ferramenta de linha de comando Winrm (WsmTxt.xsl) para gerar os dados em um formulário tabular.
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_ScheduledJob"
Set objResultSet = objSession.Enumerate( strResource )
NumOfJobs = 0
While Not objResultSet.AtEndOfStream
NumOfJobs = NumOfJobs + 1
DisplayOutput( objResultSet.ReadItem )
Wend
Wscript.Echo "There are " & NumOfJobs & " jobs scheduled."
'****************************************************
' 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 |
|