例: RegisterNewCertifier method

次のエージェントは、CERT.ID を使用して AceHardwareNE/AceHardwareCertifier を CERTNE.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