次のスクリプトは現在のユーザーの現在のデータベースへのアクセス権を取得します。以下に例を示します。
- スクリプトがクライアントで実行され、現在のユーザーが現在のデータベースの [作成者] のアクセス権を持つとき、CurrentAccessLevel は ACLLEVEL_AUTHOR を返します。
- スクリプトがサーバーで実行され、スクリプトの所有者が現在のデータベースの [設計者] のアクセス権を持つとき、CurrentAccessLevel は ACLLEVEL_DESIGNER を返します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim level As Integer
Set db = session.CurrentDatabase
level = db.CurrentAccessLevel