例: CertifierPassword property

次の例では、ユーザー名を Mary Jones から Maria Jones に変更する要求を送信する前に、現在のユーザーに対し、認証者 ID パスワードを入力するよう求められます。

Sub Initialize
  Dim session As New NotesSession
  Dim ws As New NotesUIWorkspace
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("myServer/northeast")
  adminp.CertifierFile = _ 
  "C:¥lotus¥notes¥data¥software-cert.id"
  adminp.CertifierPassword = _
  ws.Prompt(PROMPT_PASSWORD, _
  "Password", "Type certifier password")
  noteid$ = adminp.RenameNotesUser( _
  "CN=Mary Jones/O=northeast","*","Maria")
  If noteid$<> "" Then
    Messagebox "Request submitted",,"Success" 
  End If
End Sub

次の例では、現在のユーザーに対し、認証者 ID パスワードを入力するよう求めることなく、ユーザー名を Mary Jones から Mary Ellen Jones に変更する要求が送信されます。代わりに、パスワード My1Pswd はスクリプトにハードコーディングされます。

Sub Initialize
  Dim session As New NotesSession
  Dim ws As New NotesUIWorkspace
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("myServer/northeast")
  adminp.CertifierFile = _ 
  "C:¥lotus¥notes¥data¥software-cert.id"
  adminp.CertifierPassword = "My1Pswd"
  noteid$ = adminp.RenameNotesUser("CN=Mary Jones/O=northeast", _
  "*","*","E")
  If noteid$<> "" Then
    Messagebox "Request submitted",,"Success" 
  End If
End Sub