Raggruppamento di attività in ruoli nello script

In Gestione autorizzazioni un ruolo rappresenta una categoria di utenti e le attività che tali utenti sono autorizzate a eseguire. Le attività vengono raggruppate e assegnate a una definizione di ruolo, rappresentata da un oggetto IAzTask con la proprietàIsRoleDefinitionimpostata su True. La definizione del ruolo può quindi essere assegnata a un oggetto IAzRole e gli utenti o i gruppi di utenti vengono quindi assegnati a tale oggetto. Per altre informazioni su attività e ruoli, vedere Ruoli.

Nell'esempio seguente viene illustrato come assegnare attività a una definizione di ruolo, creare un oggetto ruolo e assegnare la definizione del ruolo all'oggetto ruolo. Nell'esempio si presuppone la presenza di un archivio criteri XML esistente denominato MyStore.xml nella directory radice dell'unità C, che questo archivio contenga un'applicazione denominata Spese e che questa applicazione contenga attività denominate Invia Spese e Approva Spese.

'  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 a task object to act as a role definition.
Dim roleTask
Set roleTask = expenseApp.CreateTask("Expense Admin")

'  Set the IsRoleDefinition property of roleTask to True.
roleTask.IsRoleDefinition = True

'  Add two tasks to the role definition.
roleTask.AddTask CStr("Submit Expense")
roleTask.AddTask CStr("Approve Expense")

'  Save the role definition to the store.
roleTask.Submit

'  Create a role object.
Dim role1
Set role1 = expenseApp.CreateRole("Expense Administrator")

'  Add the role definition to the role object.
role1.AddTask(roleTask.Name)

'  Save the role object to the store.
role1.Submit