LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsConfigurationDirectory property
This agent displays the Configuration Directory databases known to the current session.

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

See Also