SWbemRefreshableItem オブジェクト

SWbemRefreshableItem オブジェクトは、SWbemRefresher オブジェクト内の単一項目を表します。 SWbemRefreshableItem オブジェクトは、SWbemRefresher の Add メソッドと AddEnum メソッドから取得されます。 このオブジェクトは、VBScript の CreateObject 呼び出しでは作成できません。

メンバー

SWbemRefreshableItem オブジェクトには、次の種類のメンバーがあります。

• メソッド
• プロパティ

メソッド

SWbemRefreshableItem オブジェクトには、次のメソッドがあります。

プロパティ

SWbemRefreshableItem オブジェクトには次のプロパティがあります。

解説

VBScript メソッド GetObject は、SWbemRefreshableItem オブジェクトを直接作成する目的には使用できません。

例

次のスクリプトでは、SWbemRefresher オブジェクトが作成され、それに単一オブジェクトと列挙子 SWbemRefreshableItem が追加されます。

' Get some namespace connections
set cimv2 = GetObject("winmgmts:root\cimv2")
set default = GetObject("winmgmts:root\default")    

' Create a refresher
set refresher = CreateObject("WbemScripting.SWbemRefresher")

' Add a single object to the refresher.
' The @ is used because this is a singleton 
' system class so only one instance exists.
set item1 = refresher.Add (default, "__CIMOMIdentification=@").Object
MsgBox "WMI Version " item1
' Add an enumerator to the refresher.
' Note that the SWbemRefreshableItem.ObjectSet 
' property must be used to designate
' this as an object set rather than a single object.
set item2 = refresher.AddEnum (cimv2, "Win32_Process").ObjectSet

' Loop three times, refreshing the items

For I= 1 To 3
MsgBox "Refresh number " & I
refresher.Refresh

' Iterate through the collection of
' processes in item2 with name of wscript
    For each process in item2
        If process.name = "wscript.exe" then
        MsgBox "Process " & process.Name & _
           " Page Faults " & process.PageFaults
        End If
    Next 
Next

' Clear out the refresher
refresher.DeleteAll 

' The following should return 0
MsgBox "Number of items in Refresher after DeleteAll " _
    & refresher.Count

要件

関連項目

スクリプト API オブジェクト