例: RegisterNewUser method

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.RegisterNewUser("Yip", _  ' last name
  "c:¥NotesAdministrator¥jyip.id", _ ' file to be created
  "CN=Mail_AceOne/O=AceHardware", _  ' mail server
  "Jimmy", _                         ' first name
  "", _                              ' middle initial
  "AceHardware", _                   ' certifier password
  "", _                              ' location field
  "", _                              ' comment field
  "jyip.nsf", _                      ' mail file
  "", _                              ' forwarding domain
  "AceHardware", _                   ' user password
  NOTES_DESKTOP_CLIENT)              ' user type
End Sub

Sub Initialize
  Dim reg As New NotesRegistration
  Dim orgs (0 To 10) As String
  Dim langs (0 To 10) As String

  reg.RegistrationServer = "AceOne"
  reg.CreateMailDB = True
  reg.CertifierIDFile = "c:¥lotus¥notes¥cert.ID"
  reg.Expiration = Today + 1095
  reg.IDType = ID_HIERARCHICAL
  reg.IsNorthAmerican = False
  reg.MinPasswordLength = 5  ' password strength
  reg.OrgUnit = "Organization"
  reg.UpdateAddressBook = True
  reg.StoreIDInAddressBook = True

  orgs(1) = "Japanese OU"
  langs(1) = "ja"
  orgs(2) = "PRC OU"
  langs(2) = "zh-CN"
  orgs(3) = "Korean OU"
  langs(3) = "ko"
  reg.AltOrgUnit = orgs
  reg.AltOrgUnitLang = langs

  Call reg.RegisterNewUser("Taylor", _
  "c:¥lotus¥notes¥MTaylor.ID", _
  "CN=Our_Mail/OU=Ankara/O=Our_Org",_
  "Mike" , _
  "", _
  "certpass", _
  "West", _
  "Engineer", _
  "mail¥MTaylor.nsf", _
  "", _
  "password", _
  NOTES_LIMITED_CLIENT, _
  "Japanese name for Mike", _
  "ja")

  Call reg.RegisterNewUser("Miller", _
  "c:¥lotus¥notes¥JMiller.ID", _
  "CN=Our_Mail/OU=Ankara/O=Our_Org", _
  "Jane", _
  "", _
  "cerpass", _
  "West", _
  "Engineer", _
  "mail¥JMiller.nsf", _
  "", _
  "password", _
  NOTES_LIMITED_CLIENT, _
  "Chinese name for Jane", _
  "zh-CN")

  Call reg.RegisterNewUser("O'Brien", _
  "c:¥lotus¥notes¥SOBrien.ID", _
  "CN=Our_Mail/OU=Ankara/O=Our_Org", _
  "Steve", _
  "", _
  "certpass", _
  "East", _
  "Engineer", _
  "mail¥SOBrien.nsf", _
  "", _
  "password", _
  NOTES_LIMITED_CLIENT, _
  "Korean name for Steve", _
  "ko")
End Sub