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

Question

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

动机：ActiveXHelper

Answer 1

Scritomatic V2工具有一些这样的示例：
<代码>

On Error Resume Next


  const wbemFlagReturnImmediately = &h10 
  const wbemFlagForwardOnly = &h20

 arrComputers = Array("*") 
  对于 arrComputers 中的每个 strComputer 
     WScript.Echo 
     WScript.Echo "============================================" 
     WScript.Echo“计算机：”&   str计算机 
     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.描述 
        WScript.Echo“安装日期：”&   WMIDateStringToDate(objItem.InstallDate) 
        WScript.Echo“名称：”&   对象项.名称 
        WScript.Echo“状态：”&   objItem.Status 
        WScript.Echo 
     下一个 
  下一个

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