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

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

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