Examples: RenameWebUser method

This example creates a request to rename the Web user named Mary A Jones to Mary A Newlywed.

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  noteid$ = adminp.RenameNotesUser("CN=Mary A Jones/O=Northeast", _
  "CN="Mary A Newlywed/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