Enumerator-Objekt

Artikel
06/12/2023

Stellt einen Datenstrom mit Ergebnissen dar, die von Vorgängen zurückgegeben werden, z. B. einem Pullvorgang. Beispielsweise gibt die Session.Enumerate-Methode mehrere Ergebnisse zurück.

Member

Das Enumerator-Objekt verfügt über folgende Membertypen:

Methoden
Eigenschaften

Methoden

Das Enumerator-Objekt verfügt über diese Methoden.

Methode	Beschreibung
Readitem	Ruft ein Element aus der Ressource ab und gibt eine XML-Darstellung des Elements zurück.

Eigenschaften

Das Enumerator-Objekt verfügt über diese Eigenschaften.

Eigenschaft	Beschreibung
AtEndOfStream	Ruft einen booleschen Wert ab, der angibt, ob weitere Elemente in der Auflistung vorhanden sind.
Fehler	Ruft eine XML-Darstellung zusätzlicher Fehlerinformationen ab.

Bemerkungen

Verwenden Sie Session.Enumerate, um eine Enumeration zu starten. Verwenden Sie Enumerator.ReadItem, um einen WS-Enumeration:Pull-Vorgang auszuführen, der das Lesen von Elementen in der Enumeration fortsetzt.

Das Enumerator-Objekt entspricht der IWSManEnumerator-Schnittstelle .

Beispiele

Im folgenden VBScript-Codebeispiel werden alle Datenträger auf einem Remotecomputer aufgelistet, die durch den vollqualifizierten Domänennamen (servername.domain.com) angegeben werden. Die DisplayOutput-Unterroutine formatiert die Datenausgabe auf die gleiche Weise wie das Tool 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

Anforderungen

Anforderung	Wert
Unterstützte Mindestversion (Client)	Windows Vista
Unterstützte Mindestversion (Server)	WindowsServer 2008
Header	WSManDisp.h
IDL	WSManDisp.idl
Bibliothek	WSManDisp.tlb
DLL	WSMAuto.dll

Siehe auch

WinRM-Skript-API
Auflisten oder Auflisten aller Instanzen einer Ressource
Skripterstellung in der Windows-Remoteverwaltung

Freigeben über