Enumerator.ReadItem-Methode
Ruft ein Element aus der Ressource ab und gibt eine XML-Darstellung des Elements zurück.
Syntax
Enumerator.ReadItem( _
ByVal resource _
)
Parameter
-
resource
-
Der URI des Elements.
Rückgabewert
Die XML-Darstellung des Elements.
Hinweise
Um die Anzahl der gelesenen Elemente zu begrenzen, legen Sie die eigenschaftSession.BatchItems fest.
Beachten Sie, dass durch die Freiung des Enumerationsobjekts alle ausstehenden Enumerationsanforderungen bereinigt werden.
Die Session.Enumerate-Methode erhält eine Auflistung nicht auf die gleiche Weise wie eine WMI-Abfrage, z. B. , gibt eine Auflistung in einem SELECT * from Win32_LogicalDisk SWbemObjectSet zurück. Um eine Datei als Textstream zu lesen, erstellen Sie das SkripttextStream-Objekt und rufen die TextStream.Readline-Methode auf, um jede Zeile der Datei zu lesen. Auf ähnliche Weise rufen Sie die Session.Enumerate-Methode auf, um ein Enumeratorobjekt zu erhalten, und rufen dann die Enumerator.ReadItem-Methode auf. Wie beim Lesen aus der Textdatei können Sie die Enumerator.AtEndOfStream-Eigenschaft überprüfen, um zu überprüfen, ob Sie das Ende der Datenelemente erreicht haben.
Beispiele
Das folgende VBScript-Beispiel ruft die Session.Enumerate-Methode auf, um eine Liste geplanter Aufträge zu erhalten. Die DisplayOutput-Unterroutine verwendet die XML-Transformationsdatei des Winrm-Befehlszeilentools (WsmTxt.xsl), um die Daten in tabellarischer Form ausausgaben.
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
Anforderungen
| Anforderung | Wert |
|---|---|
| Unterstützte Mindestversion (Client) |
Windows Vista |
| Unterstützte Mindestversion (Server) |
Windows Server 2008 |
| Header |
|
| Idl |
|
| Bibliothek |
|
| DLL |
|