次のスクリプトは、現在のエージェントの名前を取得します。例えば、このスクリプトが Token エージェントの一部のときには Name プロパティは「Token」を返します。
Dim session As New NotesSession Dim agent As NotesAgent Dim n As String Set agent = session.CurrentAgent n = agent.Name