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

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