Adicionando usuários a um grupo de aplicativos em script

No Gerenciador de Autorização, um grupo de aplicativos é um grupo de usuários e grupos de usuários. Um grupo de aplicativos pode conter outros grupos de aplicativos, portanto, grupos de usuários podem ser aninhados. Um grupo de aplicativos é representado por um IAzApplicationGroup objeto.

Para permitir que os membros de um grupo de aplicativos executem uma tarefa ou um conjunto de tarefas

• Atribua esse grupo de aplicativos a uma função que contenha essas tarefas.

  As funções são representadas por objetos IAzRole.

O exemplo a seguir mostra como criar um grupo de aplicativos, adicionar um usuário como membro do grupo de aplicativos e atribuir o grupo de aplicativos a uma função existente. O exemplo pressupõe que existe um repositório de políticas XML chamado MyStore.xml no diretório raiz da unidade C, que esse repositório contém um aplicativo chamado Expense, e que esse aplicativo contém uma função chamada Expense Administrator.

'  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