LOTUSSCRIPT/COM/OLE CLASSES

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

See Also