次のスクリプトは、現在のエージェントを最後に変更したユーザーの共通名を取得します。Yukiko Kitamura/Tokyo/Production がエージェントを作成してから Mariko Ikebuchi/Tokyo/Production が変更したときは、Mariko が所有者と判断され、CurrentAgent プロパティは「Mariko Ikebuchi」を返します。
' created by Yukiko Kitamura 11/28/95
' modified by Mariko Ikebuchi 12/17/95
Dim session As New NotesSession
Dim agent As NotesAgent
Dim owner As String
Set agent = session.CurrentAgent
owner = agent.CommonOwner