例: NotesAdministrationProcess class

次の例では、現在のユーザーに対し、ユーザーの階層名を入力するよう求められます。次に、指定された階層名の組織名に基づいて、ユーザー名を変更するのに使用する認証者ファイルが選択されます。最後に、指定されたユーザー名からミドルネームのイニシャルを削除するシステム管理要求が送信されます。

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Dim ws As New NotesUIWorkspace
  Dim certFile As String
  Dim userName As Variant
  Dim posOfFirst As Long
  Set adminp = _
  session.CreateAdministrationProcess("myServer/northeast")
  userName = ws.Prompt(PROMPT_OKCANCELEDIT, _
  "User to rename", _
  "Enter the hierarchical name of the user name you want _
   to change")
  Forall group In session.UserGroupNameList
    oName$ = group.Organization
  End Forall
  posOfFirst = Instr(userName, oName$)
  If posOfFirst <> 0 Then
    adminp.CertifierFile = _ 
    "C:¥lotus¥domino¥data¥cert.id"
  Else
    adminp.CertifierFile = _ 
    "C:¥lotus¥notes¥data¥software-cert.id"
  End If
  adminp.CertifierPassword = _
  ws.Prompt(PROMPT_PASSWORD, _
  "Password", "Type certifier password")
  noteid$ = adminp.RenameNotesUser(userName,"*","*","")
  If noteid$<> "" Then
    Messagebox "Request submitted",,"Success" 
  End If
End Sub