Examples: ChangeHTTPPassword method

This code enters a request to replace the current internet password, "bueno," for the user Juan Carlos with the new password, "malo."

Sub Initialize
  Dim session As NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  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