Objeto SWbemRefreshableItem

O objeto SWbemRefreshableItem representa um único item em um objeto SWbemRefresher. Um objeto SWbemRefreshableItem é obtido por meio dos métodos Adicionar e AddEnum de SWbemRefresher. Esse objeto não pode ser criado pela chamada CreateObject do VBScript.

Membros

O objeto SWbemRefreshableItem tem estes tipos de membros:

• Métodos
• Propriedades

Métodos

O objeto SWbemRefreshableItem tem esses métodos.

Método	Descrição
Remover	Remove o objeto SWbemRefreshableItem do objeto SWbemRefresher pai.

Propriedades

O objeto SWbemRefreshableItem tem essas propriedades.

Propriedade	Tipo de acesso	Descrição
Índice	Leitura/gravação	Índice do item em seu objeto SWbemRefresher pai.
IsSet	Leitura/gravação	Indica se o objeto SWbemRefreshableItem representa um único objeto ou um conjunto de objetos.
Object	Leitura/gravação	Representa um único objeto SWbemObject que é atualizado.
ObjectSet	Leitura/gravação	Representa o conjunto de objetos a ser atualizado.
Atualização	Somente leitura	Representa o objeto SWbemRefresher pai que contém o objeto SWbemRefreshableItem.

Comentários

O método GetObject do VBScript não pode ser usado para criar objetos SWbemRefreshableItem diretamente.

Exemplos

O script a seguir ilustra a criação de um objeto SWbemRefresher e a adição de um único objeto e enumerador SWbemRefreshableItem a ele.

' 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

Requisitos

Requisito	Valor
Cliente mínimo com suporte	Windows Vista
Servidor mínimo com suporte	Windows Server 2008
Cabeçalho	Wbemdisp.h
Biblioteca de tipos	Wbemdisp.tlb
DLL	Wbemdisp.dll
CLSID	CLSID_SWbemRefreshableItem
IID	IID_ISWbemRefreshableItem

Confira também

Criar script de objetos de API