Examples: RenameNotesUser method

This example creates a request to rename the Notes® user named Mary Jones to Mary Newlywed without prompting the current user for the certicate ID password, which is "My1Pswd."

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("myServer/Northeast")
  Adminp.CertifierFile = _
  "C:\lotus\domino\cert.id"
  adminp.CertifierPassword = "My1Pswd"
  noteid$ = adminp.RenameNotesUser( _
  "CN=Mary Jones/O=Northeast","Newlywed")
  If noteid$<> "" Then
    Dim db As New NotesDatabase("myServer/Northeast", "admin4.nsf")
    Dim ws As New NotesUIWorkspace
    Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
  End If
End Sub