当前位置：文江博客话题详情

改变现有的 COM+通过 vbs 脚本的应用程序身份

发布于 2024-10-01 00:13:49 字数 109 浏览 13 评论 0原文

如何通过 vbs 脚本更改现有 COM+ 应用程序标识。例如身份验证级别 = 无，并通过 vb 脚本对该用户进行身份验证。发现许多关于添加/删除 com+ 应用程序的帖子，但没有更改现有的应用程序。请帮忙

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

怀里藏娇 2024-10-08 00:13:49

这是一个脚本，用于检索所有应用程序，找到具有您感兴趣的名称的应用程序，并设置身份、密码和身份验证进行连接。有关应用程序属性的完整列表，请参阅应用程序集合< /a> COM+ 管理集合下。

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

Here's a script that retrieves all of the applications, finds the one with the name you are interested in and sets the Identity, Password and Authentication to Connect. For a full list of Application properties see Applications Collection under COM+ Administration Collections.

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

回复收藏 0 原文

~没有更多了~