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 |
|
IDL |
|
ライブラリ |
|
[DLL] |
|