Objek SWbemRefreshableItem

Artikel
06/13/2023

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
Properti

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

Bagikan melalui