Bagikan melalui


Objek SWbemRefreshableItem

Objek SWbemRefreshableItem mewakili satu item dalam objek SWbemRefresher . Objek SWbemRefreshableItem diperoleh melalui metode Add and AddEnum dari SWbemRefresher. Objek ini tidak dapat dibuat oleh panggilan VBScript CreateObject .

Anggota

Objek SWbemRefreshableItem memiliki jenis anggota ini:

Metode

Objek SWbemRefreshableItem memiliki metode ini.

Metode Deskripsi
Hapus Menghapus objek SWbemRefreshableItem dari objek SWbemRefresher induk.

Properti

Objek SWbemRefreshableItem memiliki properti ini.

Properti Jenis akses Deskripsi
Indeks
Baca/Tulis
Indeks item dalam objek SWbemRefresher induknya.
IsSet
Baca/Tulis
Menunjukkan apakah objek SWbemRefreshableItem mewakili satu objek atau set objek.
Object
Baca/Tulis
Mewakili satu objek SWbemObject yang disegarkan.
ObjectSet
Baca/Tulis
Mewakili set objek yang akan disegarkan.
Penyegaran
Baca-saja
Mewakili objek SWbemRefresher induk yang berisi objek SWbemRefreshableItem .

Keterangan

Metode VBScript GetObject tidak dapat digunakan untuk membuat objek SWbemRefreshableItem secara langsung.

Contoh

Skrip berikut mengilustrasikan pembuatan objek SWbemRefresher dan penambahan objek tunggal dan enumerator SWbemRefreshableItem ke dalamnya.

' 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

Persyaratan

Persyaratan Nilai
Klien minimum yang didukung
Windows Vista
Server minimum yang didukung
Windows Server 2008
Header
Wbemdisp.h
Pustaka jenis
Wbemdisp.tlb
DLL
Wbemdisp.dll
CLSID
CLSID_SWbemRefreshableItem
IID
IID_ISWbemRefreshableItem

Lihat juga

Membuat Skrip Objek API