如何使用VBScript列出所有WMI事件類？

Question

使用VBScript，如何列出所有表示事件的WMI類？

在此先感謝。

Answer 1

對於繼承自__EVENT的類，可以使用WMI schema query。一個例子是：

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