COM+使用命令行部署应用程序

Question

我需要将 COM dll 部署为 COM+ 应用程序。我曾经通过组件服务管理器 (dcomcnfg.exe) 执行此操作。但我的要求是从命令行部署它。有命令可以做到这一点吗？

更新：如何卸载？

谢谢。

Answer 1

这里还有几个脚本，它们将 COM+ 应用程序的设置转储到 XML 文件as 从 XML 文件安装应用程序。它为我提供了一个很好的框架，让我可以在不久前做类似的事情。它包含如何使用 COM+ 管理 API 创建和删除 COM+ 应用程序的示例代码。

Answer 2

此 vbscript 片段创建一个应用程序并安装一个组件：

Dim catalog
Dim applications
Dim application
Set catalog = CreateObject("COMAdmin.COMAdminCatalog")
Set applications = catalog.GetCollection("Applications")
Call applications.Populate
Set application = applications.Add()


' ID is an arbitrary GUID, that you can create using uuidgen
application.Value("ID") = "{da2d72e3-f402-4f98-a415-66d21dafc0a9}"
application.Value("Name") = "SampleApp"
application.Value("Activation") = 0' COMAdmin.COMAdminActivationOptions.COMAdminActivationLocal
application.Value("ApplicationAccessChecksEnabled") = 0 'COMAdmin.COMAdminAccessChecksLevelOptions.COMAdminAccessChecksApplicationComponentLevel
application.Value("Description") = "Sample Application"
'application.Value("Identity") = "machine\administrator"
'application.Value("Password") = "YourPassword"
application.Value("RunForever") = True

Call applications.SaveChanges

catalog.InstallComponent "SampleApp", "C:\Documents and Settings\me\My Documents\Test\MyTestProj.dll", "", ""


Set application = Nothing
Set applications = Nothing
Set catalog = Nothing

它在 Windows XP 上运行 - 其他操作系统可能有不同的行为。而且看起来确实很有气质。如果它不起作用，那么错误就非常模糊且无益。

要删除，我认为您必须迭代应用程序中的组件并从列表中删除 按照此示例。我认为需要类似的方法来删除整个应用程序。

参考资料

请参阅配置 COM+ 以获得一篇易于理解的好文章（但不在脚本中）。 MSDN 有一个关于自动化 COM+ 管理 以及完整的 COM+ 管理参考 。