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

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

2 голосов
/ 09 ноября 2010

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

1 Ответ

3 голосов
/ 10 декабря 2010

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