在脚本中将任务分组到角色

在授权管理器中，角色表示一类用户以及这些用户有权执行的任务。 任务组合在一起并分配给角色定义，角色定义由 IAzTask 对象表示，其 IsRoleDefinition 属性设置为 True。 然后，可将角色定义分配给 IAzRole 对象，然后将用户或用户组分配给该对象。 有关任务和角色的详细信息，请参阅 角色。

以下示例演示如何将任务分配给角色定义、创建角色对象，以及如何将角色定义分配给角色对象。 该示例假定驱动器 C 根目录中有一个名为 MyStore.xml 的现有 XML 策略存储，此存储包含名为 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