SWbemRefreshableItem, objet

Article
06/29/2023

L’objet SWbemRefreshableItem représente un élément unique dans un objet SWbemRefresher. Un objet SWbemRefreshableItem est obtenu via les méthodes Add et AddEnum de SWbemRefresher. Cet objet ne peut pas être créé par l’appel VBScript CreateObject.

Membres

L’objet SWbemRefreshableItem a ces types de membres :

Méthodes
Propriétés

Méthodes

L’objet SWbemRefreshableItem a les méthodes suivantes.

Méthode	Description
Remove	Supprime l’objet SWbemRefreshableItem de l’objet SWbemRefresher parent.

Propriétés

L’objet SWbemRefreshableItem a les propriétés suivantes.

Propriété	Type d’accès	Description
Index	Lecture/écriture	Index de l’élément dans son objet SWbemRefresher parent.
IsSet	Lecture/écriture	Indique si l’objet SWbemRefreshableItem représente un objet unique ou un ensemble d’objets.
Object	Lecture/écriture	Représente un objet SWbemObject unique qui est actualisé.
ObjectSet	Lecture/écriture	Représente l’ensemble d’objets à actualiser.
Actualisation	Lecture seule	Représente l’objet SWbemRefresher parent qui contient l’objet SWbemRefreshableItem.

Notes

La méthode VBScript GetObject ne peut pas être utilisée pour créer des objets SWbemRefreshableItem directement.

Exemples

Le script suivant illustre la création d’un objet SWbemRefresher et l’ajout d’un objet unique et d’un énumérateur 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

Spécifications

Condition requise	Valeur
Client minimal pris en charge	Windows Vista
Serveur minimal pris en charge	Windows Server 2008
En-tête	Wbemdisp.h
Bibliothèque de types	Wbemdisp.tlb
DLL	Wbemdisp.dll
CLSID	CLSID_SWbemRefreshableItem
IID	IID_ISWbemRefreshableItem

Voir aussi

Objets de l’API de script

Partager via