Как перечислить все классы событий WMI с помощью VBScript?

Как с помощью VBScript составить список всех классов WMI, представляющих события?

Заранее спасибо.


vbscript wmi
person Salvador    schedule 21.10.2010    source источник
comment
Кстати, вот тот же вопрос, но с просьбой о решении C #: Список классов WMIEvent   -  person Helen    schedule 23.10.2010

Ответы (1)


arrow_upward
3
arrow_downward

Для классы, наследуемые от __EVENT. Примером может быть:

Function GetWmiEventClasses(computerName)
    Dim wmiRoot
    Dim eventClasses

    Set wmiRoot = GetObject("winmgmts:\\" & computerName & "\root\cimv2")
    Set eventClasses = wmiRoot.ExecQuery("select * from meta_class where __this isa '__event'") 

    Set GetWmiEventClasses = eventClasses
End Function

ИСПОЛЬЗОВАНИЕ:

Set eventClasses = GetWmiEventClasses("." )

If Not eventClasses Is Nothing Then
    Dim eventClass 

    For Each eventClass In eventClasses
        WScript.Echo eventClass.Path_.Class
    Next 
End If
person Garett    schedule 21.10.2010