Examples: AddCertifierToAddressBook method

This agent adds a record for CERT2.ID to the Domino® Directory on AceOne.

Sub Initialize
  Dim session As New NotesSession
  Dim reg As New NotesRegistration
  reg.RegistrationServer = "AceOne"
  reg.StoreIDInAddressBook = True
  Call reg.AddServerToAddressBook( _
  "c:\NotesAdministrator\cert2.id", _ ' ID file
  "AceHardware", _ ' certifier password
  "", _ ' location field
  "") ' comment field
End Sub