Raggruppamento di attività in ruoli nello script
In Gestione autorizzazioni un ruolo rappresenta una categoria di utenti e le attività che gli utenti possono eseguire. Le attività vengono raggruppate e assegnate a una definizione di ruolo, rappresentata da un oggetto IAzTask con la relativa proprietà IsRoleDefinition impostata 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 sulle attività e sui 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 role. L'esempio presuppone che esista un archivio criteri XML esistente denominato MyStore.xml nella directory radice dell'unità C, che questo archivio contiene un'applicazione denominata Expense 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