Добавление пользователей в группу приложений в скрипте

В диспетчере авторизации группа приложений — это группа пользователей и групп пользователей. Группа приложений может содержать другие группы приложений, поэтому пользователи могут быть распределены по вложенным группам. Группа приложений представлена объектом IAzApplicationGroup.

Разрешить членам группы приложений выполнять задачу или набор задач

• Назначьте эту группу приложений роли, содержащей эти задачи.

  Роли представлены объектами IAzRole.

В следующем примере показано, как создать группу приложений, добавить пользователя в качестве члена группы приложений и назначить группу приложений существующей роли. В примере предполагается, что в корневом каталоге диска C имеется существующее хранилище политик XML с именем MyStore.xml "Расходы" и что это приложение содержит роль "Администратор расходов".

'  Create the AzAuthorizationStore object.
Dim AzManStore
Set AzManStore = CreateObject("AzRoles.AzAuthorizationStore")

'  Initialize the authorization store.
AzManStore.Initialize 2, "msxml://C:\MyStore.xml"

'  Create an application object in the store.
Dim expenseApp
Set expenseApp= AzManStore.OpenApplication("Expense")

'  Create an application group object.
Dim appGroup
Set appGroup = expenseApp.CreateApplicationGroup("Approvers")

'  Add a member to the group.
'  Replace with valid domain and user name.
appGroup.AddMemberName("domain\\username")

'  Save information to the store.
appGroup.Submit

'  Open a role object.
Dim adminRole
Set adminRole = expenseApp.OpenRole("Expense Administrator")

'  Add the group to the role.
adminRole.AddAppMember("Approvers")

'  Save the information to the store.
adminRole.Submit