Examples: RegisterNewUser method

  1. This agent registers JYIP.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.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
  2. This agent registers three new users and sets their alternate user name and the language for the alternate user name.

    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