スクリプトでのアプリケーション オブジェクトの作成

承認ポリシー ストアには、1 つ以上のアプリケーションの承認ポリシー情報が含まれています。 承認ポリシー ストアを使用するアプリケーションごとに、 IAzApplication オブジェクトを作成し、ポリシー ストアに保存する必要があります。

次の例は、アプリケーションを表す IAzApplication オブジェクトを作成する方法と、アプリケーションが使用する承認ポリシー ストアに IAzApplication オブジェクトを追加する方法を示しています。 この例では、ドライブ C のルート ディレクトリに MyStore.xml という名前の既存の XML ポリシー ストアがあることを前提としています。

'  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.CreateApplication("Expense")

'  Save changes to the store.
expenseApp.Submit