通过 vbs 脚本更改现有 COM+ 应用程序标识答案

【问题标题】：changing existing COM+ applications identity via vbs script通过 vbs 脚本更改现有 COM+ 应用程序标识
【发布时间】：2010-11-09 12:17:36
【问题描述】：

如何通过 vbs 脚本更改现有 COM+ 应用程序的身份。像 Authentication level = none 和通过 vb 脚本对该用户的身份。发现许多关于添加/删除 com+ 应用程序的帖子，但没有更改现有的。请帮忙

【问题讨论】：

标签： .net vbscript com+ msdtc

【解决方案1】：

这是一个脚本，它检索所有应用程序，找到具有您感兴趣的名称的应用程序，并将身份、密码和Authentication 设置为连接。有关应用程序属性的完整列表，请参见 COM+ Administration Collections 下的 Applications Collection。

Const COMAdminAuthenticationDefault   = 0
Const COMAdminAuthenticationNone      = 1
Const COMAdminAuthenticationConnect   = 2
Const COMAdminAuthenticationCall      = 3
Const COMAdminAuthenticationPacket    = 4 
Const COMAdminAuthenticationIntegrity = 5
Const COMAdminAuthenticationPrivacy   = 6

Dim catalog
Dim applications
Dim application

Set catalog = CreateObject("COMAdmin.COMAdminCatalog")
Set applications = catalog.GetCollection("Applications")

Call applications.Populate

For Each application In applications

    If (application.value("Name")  = "AppName") Then

        application.Value("Authentication") = COMAdminAuthenticationConnect
        application.Value("Identity") = "domain\account"
        application.Value("Password") = "Password"

        Call applications.SaveChanges
    End If
Next

【讨论】：