Как перечислить все классы событий WMI, используя VBScript?

Question

Используя VBScript, как я могу перечислить все классы WMI, которые представляют события?

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

Answer 1

Вы можете использовать WMI запрос схемы для классов, наследуемых от __ 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