Function ChangePassword(doc As NotesDocument) As Boolean
On Error Goto ErrHandler
Dim sess As New NotesSession
Dim vwNAB As NotesView
Dim docNAB As NotesDocument
Dim temp As Variant
Dim ErrMsg As String
Forall dbNAB In sess.AddressBooks
Call dbNAB.Open("", "")
If dbNAB.IsOpen Then
Set vwNAB = dbNAB.GetView("($Users)")
If Not vwNAB Is Nothing Then
Set docNAB = vwNAB.GetDocumentByKey(doc.UserName(0), True)
If Not docNAB Is Nothing Then Exit Forall
End If
End If
End Forall
If docNAB Is Nothing Then
ErrMsg = "Cannot locate your person document."
Goto ExitPoint
End If
temp = Evaluate({@VerifyPassword("} + doc.OldPassword(0) + {"; "} + docNAB.HTTPPassword(0) + {")})
If temp(0) <> 1 Then
ErrMsg = "Your old password is incorrect."
Goto ExitPoint
End If
If docNAB.~$SecurePassword(0) = "1" Then
temp = Evaluate({@HashPassword(NewPassword)}, doc)
Else
temp = Evaluate({@Password(NewPassword)}, doc)
End If
docNAB.HTTPPassword = temp(0)
If Not docNAB.Save(False, False) Then
ErrMsg = "Error saving the new password."
Goto ExitPoint
End If
Call sess.SendConsoleCommand(db.Server, "show nlcache reset")
ExitPoint:
Print "Content-Type: text/html; charset=utf-8"
Print "<Script>"
If ErrMsg = "" Then
Print "alert('Password changed successfully.')"
Print "window.close()"
Else
Print "alert('" + ErrMsg + "')"
Print "window.location.replace('/" + Replace(doc.ParentDatabase.FilePath, "\", "/") + "/ChangePassword?OpenForm')"
End If
Print "</Script>"
Exit Function
ErrHandler:
If Err = 4060 Then Resume Next
Msgbox "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")"
End Function
