A client of ours required a change Internet password feature on the Portal so that users can change their passwords whenever they want. So I made a change password form where the user can enter his old and new password and wrote an agent which checks the current logged in user and changes "HTTPPassword" field in the users document of names.nsf with the new password on webquerysave of the form.
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
This option, the code for which is below, works fine. But later I got another simpler way to do the same thing -- you can just redirect the user to "http://servername:port/names.nsf?changepassword" and use the default Notes feature to change the password. By using custom login forms and domcfg.nsf, you will be able to change the look and feel of the form as well.
Web Query Save: Sub Initialize On Error Goto hell Dim session As New NotesSession Dim Empdoc As NotesDocument Dim namesdb As New NotesDatabase ("","names.nsf") Dim namesview As NotesView Dim Empname As New NotesName (session.EffectiveUserName) Dim doc As NotesDocument Set db =session.CurrentDatabase Set doc=session.DocumentContext Set namesview=namesdb. GetView("($VIMPeople)") If Not namesview Is Nothing Then Set EmpDoc=namesview. GetDocumentByKey(Empname.Abbreviated) If Not empdoc Is Nothing Then empdoc.HTTPPassword=doc.NewPass(0) empdoc.SaveOptions="1" Call empdoc.ComputeWithForm(True,True) Call empdoc.save(True,True) End If End If Exit Sub hell: Print Error() & "..............." & Erl() Exit Sub End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member Hemang Kapadia. Please let others know how useful it is via the rating scale below. Do you have a useful Notes/Domino tip or code to share? Submit it to our bimonthly tip contest and you could win a prize and a spot in our Hall of Fame.