例: RenameNotesUser method

次の例では、現在のユーザーに対し、認証 ID パスワード「My1Pswd」を入力するよう求めることなく、Notes ユーザー名を Mary Jones から Mary Newlywed に変更する要求が作成されます。

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