Compartilhar via


Adicionar usuários a um grupo de aplicativos no 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, para que grupos de usuários possam ser aninhados. Um grupo de aplicativos é representado por um objeto IAzApplicationGroup .

Para permitir que 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 há um repositório de políticas XML existente 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 Administrador de Despesas.

'  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