將工作分組為腳本中的角色

在 [授權管理員] 中，角色代表使用者類別，以及這些使用者有權執行的工作。 工作會分組在一起，並指派給角色定義，此定義是由 IAzTask 物件所代表，其 IsRoleDefinition 屬性設定為 True。 然後，可以將角色定義指派給 IAzRole 物件，然後指派給該物件的使用者或使用者群組。 如需工作和角色的詳細資訊，請參閱 角色。

下列範例示範如何將工作指派給角色定義、建立角色物件，以及將角色定義指派給角色物件。 此範例假設磁片磁碟機 C 的根目錄中有名為 MyStore.xml 的現有 XML 原則存放區，此存放區包含名為 Expense 的應用程式，而且此應用程式包含名為 Submit Expense 和核准 Expense 的工作。

'  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