Dodawanie użytkowników do grupy aplikacji w skryscie

W Menedżerze autoryzacji grupa aplikacji jest grupą użytkowników i grup użytkowników. Grupa aplikacji może zawierać inne grupy aplikacji, więc grupy użytkowników mogą być zagnieżdżone. Grupa aplikacji jest reprezentowana przez obiekt IAzApplicationGroup.

Aby umożliwić członkom grupy aplikacji wykonywanie zadania lub zestawu zadań

• Przypisz grupę aplikacji do roli zawierającej te zadania.

  Role są reprezentowane przez obiekty IAzRole.

W poniższym przykładzie pokazano, jak utworzyć grupę aplikacji, dodać użytkownika jako członka grupy aplikacji i przypisać grupę aplikacji do istniejącej roli. W przykładzie przyjęto założenie, że istnieje istniejący magazyn zasad XML o nazwie MyStore.xml w katalogu głównym dysku C, który zawiera aplikację o nazwie Wydatki i że ta aplikacja zawiera rolę o nazwie Administrator wydatków.

'  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