例: LastRun property (NotesSession - LotusScript®)

次のエージェントスクリプトは、エージェントが最後に実行された日付を取得し、その日付を runDate に代入します。例えば、エージェントが最後に実行されたのが 1996 年 8 月 15 日の午前 11 時 9 分 20 秒である場合、LastRun は 8/15/96 11:09:20 AM を返します。エージェントが初めて実行された場合、LastRun は 11/30/1899 を返します。
```
Sub Initialize
  Dim session As New NotesSession
  Dim runDate As Variant
  runDate = session.LastRun
End Sub
```
次のエージェントスクリプトは、エージェントが最後に実行されてから、現在のデータベースの全文索引が更新されたかどうかを調べます。更新されていないときは、スクリプトは全文索引を更新します。
```
Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If ( session.LastRun > db.LastFTIndexed ) Then
    Call db.UpdateFTIndex( False )
  End If
End Sub
```