Examples: IsPublicAddressBook property (NotesDatabase - LotusScript®)

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