例: ChangeHTTPPassword method

次のコードは、ユーザー Juan Carlos の現在のインターネットパスワード「bueno」を新しいパスワード「malo」で置き換える要求を入力します。

Sub Initialize
  Dim session As NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("MyServer/northeast")
  noteID$ = adminp(ChangeHTTPPassword("CN=Juan Carlos/O=northeast", _
  "bueno", "malo")
  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