zoukankan      html  css  js  c++  java
  • 改变Notes ID密码

    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

  • 相关阅读:
    .Net时间计算函数,统计某一天是一年的第几周,这一周从哪天开始到哪天结束
    1分钟搞定超慢SQL
    网站
    舞台
    相见欢
    一套完整系统对人生的意义
    2015/08/15心情
    Linux下压缩某个文件夹(文件夹打包)
    init进程 && 解析Android启动脚本init.rc && 修改它使不启动android && init.rc中启动一个sh文件
    andriod系统裁剪心得
  • 原文地址:https://www.cnblogs.com/blackbean/p/2215143.html
Copyright © 2011-2022 走看看