Objek enumerator
Mewakili aliran hasil yang dikembalikan dari operasi, seperti operasi Pull. Misalnya, metode Session.Enumerate mengembalikan beberapa hasil.
Objek Enumerator memiliki jenis anggota ini:
Objek Enumerator memiliki metode ini.
Metode | Deskripsi |
---|---|
ReadItem | Mengambil item dari sumber daya dan mengembalikan representasi XML item. |
Objek Enumerator memiliki properti ini.
Properti | Deskripsi |
---|---|
AtEndOfStream |
Mendapatkan nilai Boolean yang menunjukkan apakah ada lebih banyak item dalam koleksi. |
Kesalahan |
Mendapatkan representasi XML dari informasi kesalahan tambahan. |
Untuk memulai enumerasi, gunakan Session.Enumerate. Untuk melakukan operasi WS-Enumeration:Pull yang terus membaca item dalam enumerasi, gunakan Enumerator.ReadItem.
Objek Enumerator sesuai dengan antarmuka IWSManEnumerator .
Contoh kode VBScript berikut menghitung semua disk pada komputer jarak jauh yang ditentukan oleh nama domain yang sepenuhnya memenuhi syarat (servername.domain.com). Subroutine DisplayOutput memformat output data dengan cara yang sama seperti alat 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
Persyaratan | Nilai |
---|---|
Klien minimum yang didukung |
Windows Vista |
Server minimum yang didukung |
Windows Server 2008 |
Header |
|
IDL |
|
Pustaka |
|
DLL |
|