Méthode Enumerator.ReadItem

Article
06/13/2023

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

Partager via