Enumerator (objet)
Représente un flux de résultats retournés par des opérations, telles qu’une opération Pull. Par exemple, la méthode Session.Enumerate retourne plusieurs résultats.
L’objet Enumerator a les types de membres suivants :
L’objet Enumerator a ces méthodes.
Méthode | Description |
---|---|
ReadItem | Récupère un élément de la ressource et retourne une représentation XML de l’élément. |
L’objet Enumerator a ces propriétés.
Propriété | Description |
---|---|
AtEndOfStream |
Obtient une valeur booléenne qui indique s’il y a plus d’éléments dans la collection. |
Error |
Obtient une représentation XML d’informations d’erreur supplémentaires. |
Pour démarrer une énumération, utilisez Session.Enumerate. Pour effectuer une opération WS-Enumeration:Pull qui poursuit la lecture des éléments de l’énumération, utilisez Enumerator.ReadItem.
L’objet Enumerator correspond à l’interface IWSManEnumerator.
L’exemple de code VBScript suivant énumère tous les disques d’un ordinateur distant spécifiés par le nom de domaine complet (servername.domain.com). La sous-routine DisplayOutput met en forme la sortie des données de la même façon que l’outil 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
Condition requise | Valeur |
---|---|
Client minimal pris en charge |
Windows Vista |
Serveur minimal pris en charge |
Windows Server 2008 |
En-tête |
|
IDL |
|
Bibliothèque |
|
DLL |
|