如何使用 WMI 枚举所有 ActiveX 元素？

是否可以使用 WMI 脚本枚举所有（或仅启用）ActiveX 元素（*.dll、*.ocx）？

动机：ActiveX助手 http://www.nirsoft.net/utils/axhelper.html

工具有一些这样的示例：

On Error Resume Next  

常量 wbemFlagReturnImmediately = &h10 常量 wbemFlagForwardOnly = &h20

arrComputers = 数组("*") 对于 arrComputers 中的每个 strComputer WScript.Echo WScript.Echo "============================================" WScript.Echo "计算机：" & strComputer WScript.Echo "============================================"

设置 objWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2") 设置 colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ClassicCOMClass", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)

对于 colItems 中的每个 objItem WScript.Echo "标题：" & objItem.Caption WScript.Echo "ComponentId: " & objItem.ComponentId WScript.Echo“描述：”& objItem.Description WScript.Echo "安装日期：" & WMIDateStringToDate(objItem.InstallDate) WScript.Echo "名称：" & objItem.Name WScript.Echo“状态：”& objItem.Status WScript.Echo 下一个 下一个

函数 WMIDateStringToDate(dtmDate) WScript.Echo dtm： WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _ 中(dtmDate, 7, 2) & "/" & 左(dtmDate, 4) _ & " " & Mid (dtmDate, 9, 2) & ":" & Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate,13, 2)) 结束功能