LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsDirectoryCatalog property
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

See Also