.net - 通过 vbs 脚本更改现有 COM+ 应用程序标识

Question

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

Answer 1

这是一个脚本，它检索所有应用程序，找到具有您感兴趣的名称的应用程序，并将身份、密码和身份验证设置为连接。有关应用程序属性的完整列表，请参阅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