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