次の方法で共有


Enumerator.AtEndOfStream プロパティ

コレクション内に項目がこれ以上存在するかどうかを示すブール値を取得します。

このプロパティは読み取り専用です。

構文

Enumerator.AtEndOfStream As BOOLEAN

プロパティ値

True

コレクション内の項目はこれ以上ありません。

False

その他のアイテムも利用できます。

注釈

必要なすべてのデータを取得した後に Enumerator オブジェクトを解放すると、保留中の列挙要求はすべて削除されます。 詳細については、「 リソースのすべてのインスタンスの列挙または一覧表示」を参照してください

次の VBScript の例では、オペレーティング システム インスタンスを列挙します。 列挙オブジェクトを解放すると、保留中の列挙要求がクリーンアップされることに注意してください。 DisplayOutput サブルーチンは、WinRM.cmd ツールと同じ方法でデータ出力をフォーマットします。

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_OperatingSystem"

Set objResultSet = objSession.Enumerate( strResource )

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

要件

要件
サポートされている最小のクライアント
Windows Vista
サポートされている最小のサーバー
Windows Server 2008
Header
WSManDisp.h
IDL
WSManDisp.idl
ライブラリ
WSManDisp.tlb
[DLL]
WSMAuto.dll

こちらもご覧ください

列挙子

リソースのすべてのインスタンスの列挙または一覧表示