Как изменить идентификатор существующих приложений COM+ с помощью скрипта vbs. например Уровень аутентификации = none и идентификация этого пользователя через сценарии vb. нашел много сообщений о добавлении/удалении приложений com+, но не изменяя существующее. пожалуйста помоги
изменение существующих идентификаторов приложений COM+ с помощью сценария vbs
Ответы (1)
Вот сценарий, который извлекает все приложения, находит приложение с интересующим вас именем и устанавливает идентификатор, пароль и Аутентификация для подключения. Полный список свойств приложения см. в Коллекции приложений в разделе Коллекции администрирования 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
person
Randy supports Monica
schedule
10.12.2010