次のエージェントは、CERT.ID に SERVER2.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