快速修改Domino使用者 http密碼（一）

作為一個Domino的管理者，日常最基本的工作就是建立、删除、密碼重置工作，前期我已經實作了批量删除使用者的操作，今天主要介紹如何快速重置Domino使用者的Http密碼；

那什麼叫快速呢，當然有很多人了解快速的概念就是立刻、馬上，但是今天來做的是5分鐘的時間稱呼快速，因為我們大家都知道如果環境内有多台Domino伺服器的話，然後有很多使用者注冊在不同的伺服器上，在某個伺服器上修改完密碼後，如果想讓使用者密碼生效就是通過複制進行操作，或者預設是2個小時後生效，但是今天通過開發的資料庫更改完密碼後5分鐘生效，具體見下：

環境介紹：

Server1:Dsgrd-mail01.dsgrd.com

Server2:Dsgrd-mail02.dsgrd.com

然後在不同的伺服器上注冊不同的使用者：

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142298WSjI.png"></a>

我們接下來需要做的是建立一個新的空白資料庫然後通過Desinger工具打開進行編輯

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142299q8Ef.png"></a>

資料庫名稱自定義

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142305sSCk.png"></a>

然後通過Desinger工具打開進行編輯:

建立一個試圖,然後編輯試圖,編輯試圖script

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142309lwag.png"></a>

腳本内容具體見下:

Sub Click(Source As Button) 

    Dim session As New notessession 

    Dim db As notesdatabase 

    Set db = session.currentdatabase 

    Dim doc As notesdocument 

    Dim username As NotesName,username1 As NotesName 

    userabbr = Inputbox("要修改誰的密碼？？") 

    Set username = New NotesName(userabbr) 

    Dim newpwd,newpwd2 As String 

    newpwd = Inputbox("新密碼設定成？？") 

    newpwd2 = Inputbox("确認一下新密碼？？") 

    If Trim(newpwd) &lt;&gt; Trim(newpwd2) Then 

        Msgbox "兩次密碼不一緻。" 

        Exit Sub 

    End If 

    Dim namesdb As New notesdatabase(db.Server,"names.nsf") 

    Dim namesview As notesview 

    Dim namesdoc As notesdocument 

    Dim ss As String 

    Set namesview = namesdb.getview("($VIMPeople)") 

    Set namesdoc = namesview.getdocumentbykey(Cstr(username.Abbreviated),True) 

    If namesdoc Is Nothing Then 

        ss="在通訊錄中沒有找到這個使用者資訊！" 

    Else 

        mstring = "@Password('" + newpwd + "')" 

        namesdoc.HTTPPassword = Evaluate(mstring) 

        Call namesdoc.save(True,True) 

        ss="密碼修改成功，5分鐘左右生效！" 

    Msgbox ss 

End Sub

儲存後,拷貝到Data目錄下,然後通過控制台打開

打開後單擊修改http密碼按鈕

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142310moIC.png"></a>

輸入需要更改密碼的使用者,使用者格式為user/domain

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142310wrjL.png"></a>

輸入修改使用者的密碼

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_13671423113TBz.png"></a>

再次輸入确認密碼

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142314kSZc.png"></a>

修改完成

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142314gDmu.png"></a>

因為更改的事mail12，mail12使用者在Dsgrd-mail02.dsgrd.com上注冊了，5分鐘後使用者通過密碼登陸

<a href="http://gaowenlong.blog.51cto.com/attachment/201304/28/451336_1367142316xJ39.png"></a>

本文轉自 高文龍 51CTO部落格，原文連結：http://blog.51cto.com/gaowenlong/1189448，如需轉載請自行聯系原作者