LOTUSSCRIPT/COM/OLE CLASSES
Examples: RegisterNewCertifier method
This agent registers AceHardwareNE/AceHardwareCertifier as CERTNE.ID using 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.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.RegisterNewCertifier("AceHardwareCertifier", _
 "c:\NotesAdministrator\certNE.id", _ '  file to be created
 "Ace Hardware NE ")         ' Domino Directory title field
End Sub

See Also