Изменение идентификатора существующих приложений COM+ через скрипт VBS

Question

Как изменить идентичность существующих приложений COM+ через скрипт VBS. например, уровень проверки подлинности = нет и личность для этого пользователя с помощью сценариев VB. найдено много сообщений о добавлении / удалении приложений com+, но без изменения существующего. пожалуйста помоги

Answer 1

Вот скрипт, который извлекает все приложения, находит приложение с именем, которое вас интересует, и устанавливает для удостоверения, пароля и аутентификации значение Connect. Полный список свойств приложения см. В разделе " Коллекция приложений" в разделе " Коллекции администрирования 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