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

  • 相关阅读:
    Unet网络
    反卷积、上采样、上池化
    深度学习中的正则化
    BN_batch normalization
    导入numpy时,出错怎么解决?
    faster rcnn相关内容
    卷积神经网络的结构总结
    卷积神经网络的结构及对卷积的理解
    双系统中卸载Ubuntu后又efi系统分区删除方法
    ubuntu18.04中安装和卸载cuDNN
  • 原文地址:https://www.cnblogs.com/blackbean/p/2215143.html
Copyright © 2011-2022 走看看