VBScript:创建对象抛出错误

Question

下面是我尝试创建实例"COMAdmin.COMAdminCatalogCollection“对象的案例。但我说错了：

   "Microsoft VBScript runtime error: ActiveX component can't create object: 'COMAdminCatalogCollection'"

代码：

dim aa,bb,cc
set aa = new ActiveXObject("COMAdmin.COMAdminCatalogCollection")
'Set bb =  Createobject("COMAdmin.COMAdminCatalogCollection")
'set cc =   Createobject("COMAdminCatalogCollection")

我对"COMAdmin.COMAdminCatalogCollection“这个例子一无所知，我试图找dlls注册来解决我在互联网上没有发现的问题。

提前谢谢。

Answer 1

尝试从COMAdminCatalog获取集合

Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog")
Set oTSCol = objCatalog.GetCollection("TransientSubscriptions")
Set objCatalog = nothing