Examples: RegisterNewServer method

This agent registers SERVER2.ID with CERT.ID.

Sub Initialize
  Dim session As New NotesSession
  Dim reg As New NotesRegistration
  dt = Datenumber(Year(Today)+1, Month(Today), Day(Today))
  reg.RegistrationServer = "AceOne"
  reg.CreateMailDb = False
  reg.CertifierIDFile = "c:\NotesAdministrator\cert.id"
  reg.Expiration = dt
  reg.IDType = ID_HIERARCHICAL
  reg.MinPasswordLength = 5  ' password strength
  reg.IsNorthAmerican = True
  reg.OrgUnit = "AceHardwareNE"
  reg.RegistrationLog = "log.nsf"
  reg.UpdateAddressBook = True
  reg.StoreIDInAddressBook = True
  Call reg.RegisterNewServer("AceTwo", _ ' server name
  "c:\NotesAdministrator\server2.id", _ ' file to be created
  "AceHardware", _ ' domain name
  "AceHardware", _ ' password for server ID
  "AceHardware", _ ' certifier password
  "", _ ' location field
  "", _ ' comment field
  "", _ ' Notes named network
  "Roberta Person/AceHardwareCertifier", _ ' server admin
  "Ace Two") ' Domino Directory title field
End Sub