Método Enumerator.ReadItem
Recupera un elemento del recurso y devuelve una representación XML del elemento.
Sintaxis
Enumerator.ReadItem( _
ByVal resource _
)
Parámetros
-
resource
-
URI del elemento.
Valor devuelto
Representación XML del elemento.
Observaciones
Para limitar el número de elementos leídos, establezca la propiedad Session.BatchItems .
Tenga en cuenta que la liberación del objeto de enumeración limpia las solicitudes de enumeración pendientes.
El método Session.Enumerate no obtiene una colección de la misma manera que una consulta WMI, como SELECT * from Win32_LogicalDisk, devuelve una colección en un objeto SWbemObjectSet. Para leer un archivo como una secuencia de texto, cree el objeto TextStream de scripting y llame al método TextStream.Readline para leer cada línea del archivo. De forma similar, se llama al método Session.Enumerate para obtener un objeto Enumerator y, a continuación, se llama al método Enumerator.ReadItem . Como en la lectura del archivo de texto, puede comprobar la propiedad Enumerator.AtEndOfStream para comprobar si ha llegado al final de los elementos de datos.
Ejemplos
En el siguiente ejemplo de VBScript se llama al método Session.Enumerate para obtener una lista de trabajos programados. La subrutina DisplayOutput usa el archivo de transformación XML de la herramienta de línea de comandos de Winrm (WsmTxt.xsl) para generar los datos en un formulario 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 | Value |
|---|---|
| Cliente mínimo compatible |
Windows Vista |
| Servidor mínimo compatible |
Windows Server 2008 |
| Encabezado |
|
| IDL |
|
| Biblioteca |
|
| Archivo DLL |
|