次のスクリプトは、現在のエージェントが実行されるサーバーの名前を取得します。例えば、このエージェントがサーバー Osaka で週に一度実行されるようスケジュールが設定されている場合、ServerName プロパティは「Osaka」を返します。
Dim session As New NotesSession
Dim agent As NotesAgent
Dim server As String
Set agent = session.CurrentAgent
server = agent.ServerName