例: IsConfigurationDirectory property (NotesDatabase - LotusScript®)

次のエージェントは、現在のセッションが認識している [構成ディレクトリ] データベースを表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim configs As String
  Forall db In session.AddressBooks
    Call db.open("", "") ' Must open database
    If db.IsConfigurationDirectory Then
      configs = configs & db.Server & " " & _
      db.FilePath & Chr(13)
    End If
  End Forall
  If configs = "" Then configs = "None"
  Messagebox configs,, "Conguration Directory databases"
End Sub