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

  • 相关阅读:
    jQuery实现图片延迟加载
    小猪学设计模式之—装饰者模式
    设计原则—依赖倒转原则
    ASP.NET MVC 在子页中引用头文件
    关于博客
    关于借钱
    面向对象编程(OOP)基础之UML基础
    C#抽象类、抽象方法、抽象属性
    小猪学设计模式——门面模式(外观模式)
    Eclipse 快捷键
  • 原文地址:https://www.cnblogs.com/blackbean/p/2215143.html
Copyright © 2011-2022 走看看