536
社区成员
发帖
与我相关
我的任务
分享IE端用户更改密码的问题。
IE端登陆用户登陆进xx.nsf系统后，系统提供了一修改用户资料的功能，包括修改用户密码。
但修改结果确总是不生效，或者说有很长一段时间后才会生效。
请问高手，有没有办法直接生效，就向直接在Domino Manager 中修改密码一样。
但修改结果确总是不生效，或者说有很长一段时间后才会生效。
请问高手，有没有办法直接生效，就向直接在Domino Manager 中修改密码一样。
...全文
请发表友善的回复…
发表回复
yhwq 2003-03-03
- 打赏
- 举报
这些设置在重启服务后会生效的啊
jca 2003-03-03
- 打赏
- 举报
好象在LOTUS SCRIPT里不能让它立即生效吧。
chenzb 2003-03-03
- 打赏
- 举报
很长时间也说不上，几分钟之内就可以生效的。
Shrewdcat 2003-03-03
- 打赏
- 举报
我也是如楼上兄这样作的，但总是不能利马生效。原代码如下，请大侠指正：
Sub Initialize
Dim ns As NotesSession
Dim db As NotesDatabase
Dim viewDoc As NotesDocument
Dim doc As Notesdocument
Dim view As NotesView
Dim User As String
Dim Pwd As String
Dim eldPwd As String
Dim confirmPwd As String
Dim k As String
k=0
Set ns=New NotesSession()
Set doc=ns.DocumentContext
User=doc.UserName(0)
Pwd=doc.NewPwd(0)
eldPwd=doc.oldPwd(0)
confirmPwd=doc.ConfirmPwd(0)
Set db=ns.GetDatabase("","Names.nsf")
Set view=db.getView("People")
Set viewDoc=view.GetFirstDocument
Print "<BODY BACKGROUND='/nbbbs.nsf/bg-l.jpg'>"
If Pwd=confirmPwd Then
Do Until (viewdoc Is Nothing)
If Lcase(viewDoc.ShortName(0))=Lcase(User) And viewDoc.HTTPPassword(0)=eldPwd Then
If Pwd<>"" Then
viewDoc.HTTPPassword=Pwd
k=1
End If
viewDoc.Save True,False
If k=1 Then Exit Do
End If
Set viewDoc=view.GetNextDocument(viewDoc)
Loop
If k=0 Then
Print "<br><font size=+2><b><P align=center>The old password isn't correct , Please try agin !"
Print "<br><p align=center><input type=button value='Go Back' onclick='JavaScript:history.go(-1)'></P>"
Else
Print "<br><b><font size=+2><p align=center>Change successfully !</p></font></b>"
Print "<br><b><font size=+1><p align=center>The new password will be effective when next login.</p></font></b>"
End If
Else
Print "<br><b><p align=center><font size=+2>New Password isn't equal to confirm Password ,Please check it !</font></p></b>"
Print "<br><p align=center><input type=button value='Go Back' onclick='JavaScript:history.go(-1)'></P>"
End If
End Sub
Sub Initialize
Dim ns As NotesSession
Dim db As NotesDatabase
Dim viewDoc As NotesDocument
Dim doc As Notesdocument
Dim view As NotesView
Dim User As String
Dim Pwd As String
Dim eldPwd As String
Dim confirmPwd As String
Dim k As String
k=0
Set ns=New NotesSession()
Set doc=ns.DocumentContext
User=doc.UserName(0)
Pwd=doc.NewPwd(0)
eldPwd=doc.oldPwd(0)
confirmPwd=doc.ConfirmPwd(0)
Set db=ns.GetDatabase("","Names.nsf")
Set view=db.getView("People")
Set viewDoc=view.GetFirstDocument
Print "<BODY BACKGROUND='/nbbbs.nsf/bg-l.jpg'>"
If Pwd=confirmPwd Then
Do Until (viewdoc Is Nothing)
If Lcase(viewDoc.ShortName(0))=Lcase(User) And viewDoc.HTTPPassword(0)=eldPwd Then
If Pwd<>"" Then
viewDoc.HTTPPassword=Pwd
k=1
End If
viewDoc.Save True,False
If k=1 Then Exit Do
End If
Set viewDoc=view.GetNextDocument(viewDoc)
Loop
If k=0 Then
Print "<br><font size=+2><b><P align=center>The old password isn't correct , Please try agin !"
Print "<br><p align=center><input type=button value='Go Back' onclick='JavaScript:history.go(-1)'></P>"
Else
Print "<br><b><font size=+2><p align=center>Change successfully !</p></font></b>"
Print "<br><b><font size=+1><p align=center>The new password will be effective when next login.</p></font></b>"
End If
Else
Print "<br><b><p align=center><font size=+2>New Password isn't equal to confirm Password ,Please check it !</font></p></b>"
Print "<br><p align=center><input type=button value='Go Back' onclick='JavaScript:history.go(-1)'></P>"
End If
End Sub
Shrewdcat 2003-03-03
- 打赏
- 举报
谢谢楼上各位大侠。我找你们意思去试试
北京老苏 2003-02-27
- 打赏
- 举报
不对吧，直接修改names.nsf的个人文档应该可以的。我用代理做过。
Shrewdcat 2003-02-27
- 打赏
- 举报
作过该功能的大侠多指教！~
Shrewdcat 2003-02-27
- 打赏
- 举报
是楼上兄那么作的，关键是修改后没立即生效。有办法让修改立马生效吗？
majar 2003-02-27
- 打赏
- 举报
找到服务器的Names.nsf，然后用代理直接些修改代码
