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

  • 相关阅读:
    poj 3087 直接模拟
    POJ-3126 BFS,埃式筛选及黑科技
    POJ3278-Catch That Cow
    js变量提升
    饿了么
    2分钟就能学会的【Google/百度搜索大法】了解一下?
    span标签间距
    Vue移动端项目如何使用手机预览调试
    Port 3000 is already in use
    koa2第一天 async详解
  • 原文地址:https://www.cnblogs.com/blackbean/p/2215143.html
Copyright © 2011-2022 走看看