Объект SWbemRefreshableItem

Статья
06/13/2023

Объект SWbemRefreshableItem представляет один элемент в объекте SWbemRefresher . Объект SWbemRefreshableItem получается с помощью методов Add и AddEnumSWbemRefresher. Этот объект не может быть создан вызовом CreateObject VBScript.

Элементы

Объект SWbemRefreshableItem имеет следующие типы элементов:

Методы
Свойства

Методы

Объект SWbemRefreshableItem содержит следующие методы.

Метод	Описание
Удалить	Удаляет объект SWbemRefreshableItem из родительского объекта SWbemRefresher .

Свойства

Объект SWbemRefreshableItem имеет следующие свойства.

Свойство	Тип доступа	Описание
Индекс	Чтение/запись	Индекс элемента в родительском объекте SWbemRefresher .
IsSet	Чтение/запись	Указывает, представляет ли объект SWbemRefreshableItem один объект или набор объектов.
Объект	Чтение/запись	Представляет один обновляемый объект SWbemObject .
ObjectSet	Чтение/запись	Представляет обновляемый набор объектов.
Переподготовки	Только для чтения	Представляет родительский объект SWbemRefresher , содержащий объект SWbemRefreshableItem .

Примеры

Следующий скрипт иллюстрирует создание объекта SWbemRefresher и добавление в него одного объекта и перечислителя 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

Требования

Требование	Значение
Минимальная версия клиента	Windows Vista
Минимальная версия сервера	Windows Server 2008
Заголовок	Wbemdisp.h
Библиотека типов	Wbemdisp.tlb
DLL	Wbemdisp.dll
CLSID	CLSID_SWbemRefreshableItem
IID	IID_ISWbemRefreshableItem

См. также раздел

Создание скриптов для объектов API

Поделиться через