例: Parent property (NotesAgent - LotusScript®)

次のスクリプトは、現在のエージェントの親のデータベースを取得します。例えば、このエージェントがデータベース WHOAMI.NSF で実行されているとき、db オブジェクトは WHOAMI.NSF を表します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set agent = session.CurrentAgent
Set db = agent.Parent