Ajout d’utilisateurs à un groupe d’applications dans script

Dans le Gestionnaire d’autorisations, un groupe d’applications est un groupe d’utilisateurs et de groupes d’utilisateurs. Un groupe d’applications peut contenir d’autres groupes d’applications, afin que des groupes d’utilisateurs puissent être imbriqués. Un groupe d’applications est représenté par un objet IAzApplicationGroup .

Pour autoriser les membres d’un groupe d’applications à effectuer une tâche ou un ensemble de tâches

• Attribuez ce groupe d’applications à un rôle qui contient ces tâches.

  Les rôles sont représentés par des objets IAzRole .

L’exemple suivant montre comment créer un groupe d’applications, ajouter un utilisateur en tant que membre du groupe d’applications et affecter le groupe d’applications à un rôle existant. L’exemple suppose qu’il existe un magasin de stratégies XML nommé MyStore.xml dans le répertoire racine du lecteur C, que ce magasin contient une application nommée Expense et que cette application contient un rôle nommé Administrateur des dépenses.

'  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