.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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