Enumerator (objeto)
Representa una secuencia de resultados devueltos por las operaciones, como una operación de extracción. Por ejemplo, el método Session.Enumerate devuelve varios resultados.
El objeto Enumerador tiene estos tipos de miembros:
El objeto Enumerador tiene estos métodos.
Método | Descripción |
---|---|
ReadItem | Recupera un elemento del recurso y devuelve una representación XML del elemento. |
El objeto Enumerador tiene estas propiedades.
Propiedad | Descripción |
---|---|
AtEndOfStream |
Obtiene un valor booleano que indica si hay más elementos en la colección. |
Error |
Obtiene una representación XML de información de error adicional. |
Para iniciar una enumeración, use Session.Enumerate. Para realizar una operación WS-Enumeration:Pull que continúe leyendo elementos en la enumeración, use Enumerator.ReadItem.
El objeto Enumerador corresponde a la interfaz IWSManEnumerator .
En el siguiente ejemplo de código VBScript se enumeran todos los discos de un equipo remoto especificado por el nombre de dominio completo (servername.domain.com). La subrutina DisplayOutput da formato a la salida de datos de la misma manera que la herramienta 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 | Value |
---|---|
Cliente mínimo compatible |
Windows Vista |
Servidor mínimo compatible |
Windows Server 2008 |
Encabezado |
|
IDL |
|
Biblioteca |
|
Archivo DLL |
|