Partager via


Méthode Enumerator.ReadItem

Récupère un élément de la ressource et retourne une représentation XML de l’élément.

Syntaxe

Enumerator.ReadItem( _
  ByVal resource _
)

Paramètres

resource

URI de l’élément.

Valeur retournée

Représentation XML de l’élément.

Notes

Pour limiter le nombre d’éléments lus, définissez la propriété Session.BatchItems .

Notez que la libération de l’objet énumération nettoie toutes les demandes d’énumération en attente.

La méthode Session.Enumerate n’obtient pas une collection de la même manière qu’une requête WMI, telle que SELECT * from Win32_LogicalDisk, retourne une collection dans un SWbemObjectSet. Pour lire un fichier en tant que flux de texte, vous créez l’objet TextStream de script et appelez la méthode TextStream.Readline pour lire chaque ligne du fichier. De la même façon, vous appelez la méthode Session.Enumerate pour obtenir un objet Enumerator , puis appelez la méthode Enumerator.ReadItem . Comme dans la lecture à partir du fichier texte, vous pouvez case activée la propriété Enumerator.AtEndOfStream pour case activée si vous avez atteint la fin des éléments de données.

Exemples

L’exemple VBScript suivant appelle la méthode Session.Enumerate pour obtenir une liste de travaux planifiés. La sous-routine DisplayOutput utilise le fichier de transformation XML de l’outil de commande Winrm (WsmTxt.xsl) pour générer les données sous forme tabulaire.

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

Spécifications

Condition requise Valeur
Client minimal pris en charge
Windows Vista
Serveur minimal pris en charge
Windows Server 2008
En-tête
WSManDisp.h
IDL
WSManDisp.idl
Bibliothèque
WSManDisp.tlb
DLL
WSMAuto.dll

Voir aussi

Énumérateur

Énumération ou liste de toutes les instances d’une ressource