Examples: IsDirectoryCatalog property (NotesDatabase - LotusScript®)

The following agent determines if databases are Directory Catalogs.

Dim session As New NotesSession
Dim books As Variant
books = session.addressbooks
Forall b In books    
  If b.IsPrivateAddressBook Then
    Call b.open("","")
    If b.IsDirectoryCatalog Then
      Messagebox "Directory Catalog on Local"
    Else
      Messagebox "NAB on Local"
    End If
  Else
    Call b.open("", "")
    If b.IsDirectoryCatalog Then
      Messagebox "Directory Catalog on Server"
    Else
      Messagebox "NAB on Server"
    End If
  End If
End Forall
End Sub