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

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 

Answer 2

如果远程系统是访问证明的，这将导致凭据错误。使用

strComputer = computerName

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", strUser, strPassword, "MS_409", "NTLMDomain:" + strDomain)

Set eventClasses = objWMIService.ExecQuery("select * from meta_class where __this isa '__event'")

Set GetWmiEventClasses = eventClasses

以字符串形式提供凭据并添加到您的代码中。

然后查询事件类...

Dim eventClasses As Object
将事件类变暗为对象
将服务器名称调暗为字符串
Dim className As String

ServerName = ""

Set eventClasses = GetWmiEventClasses(ServerName)

If Not eventClasses Is Nothing Then

' Dim eventClass

    For Each EventClass In eventClasses
        className = CStr(EventClass.Path_.Class)
        Call WriteToRTB_eventClass(className)
        WriteTextFile (className)
        
    Next
End If