次のエージェントスクリプトは、現在のエージェントの最後の終了ステータスを調べて、ステータスバーにメッセージを表示します。
Sub Initialize
Dim session As New NotesSession
If ( session.LastExitStatus = 0 ) Then
Print ( "Agent exited gracefully last time" )
Else
Print ( "Agent raised an error last time" )
End If
End Sub