535
社区成员
发帖
与我相关
我的任务
分享R6中修改Internet口令时如何立即生效？？？
R6中我配置了domcfg.nsf数据库，用户可以自己修改Internet口令，但修改后发现旧口令和新口令都能登陆，要过很长时间旧口令才失效，这样就麻烦了，因为如果别人知道旧口令的话，就可以利用这段时间登陆并修改密码了？？请教各位如何解决这个问题？？？
...全文
请发表友善的回复…
发表回复
zhoux0922 2004-07-02
- 打赏
- 举报
同意楼上的
burderly 2004-07-02
- 打赏
- 举报
其实,你先计算用户输入的口令,用@PASSWORD()转成密码,再去更换INTERNET口令域,这样做基本上是5秒钟就生效了
sry412406 2004-07-01
- 打赏
- 举报
好的
YuLimin 2004-05-02
- 打赏
- 举报
很简单，在修改密码的程序里面增加Names.nsf的索引即可，索引的代码不用我写吧：）
待Names.nsf索引完成后，新密码自然生效了，索引的时机看服务器的繁忙程序了：（
待Names.nsf索引完成后，新密码自然生效了，索引的时机看服务器的繁忙程序了：（
AdamsLee 2004-04-29
- 打赏
- 举报
这个问题到底怎么解决？
xjunhua(沉思的森林) 你说的配置在哪边设呢？
xjunhua(沉思的森林) 你说的配置在哪边设呢？
BurningM 2004-04-27
- 打赏
- 举报
r5一样的
nzy2000 2004-04-27
- 打赏
- 举报
一样，在R5中通过网页更改密码后，他的旧密码是改了，但不是加密的格式，必须要以该用户登录后，修改用户的资料再保存才能够生效，嗯，如此差的的东西，早知道就不用这种东东开发oa了，给我的印象lotus开发oa是昨日黄花了
lamp2004 2004-04-26
- 打赏
- 举报
回复人： yang76523(思忆) ( ) 信誉：97 2004-04-23 09:01:00 得分:0
总不至于任何一个用户更改口令后就“tell adminp process all”，或者重起HTTP服务吧，这样的话，谁还相信IBM的话。
你可以在服务器的任务里面加入一个“程序”文档，自动执行那个命令，好像可以设定时间间隔的，你试试。
总不至于任何一个用户更改口令后就“tell adminp process all”，或者重起HTTP服务吧，这样的话，谁还相信IBM的话。
你可以在服务器的任务里面加入一个“程序”文档，自动执行那个命令，好像可以设定时间间隔的，你试试。
AdamsLee 2004-04-26
- 打赏
- 举报
那R5好像没这事，为什么呢？R5的默认值是多少？
xjunhua 2004-04-26
- 打赏
- 举报
NAMES.NSF里面的服务器配置里面的 系统进程 可以设置时间间隔的，默认是 10分钟，你可以设置的很小，不过这样会让日志文件变得很大的，呵呵
yang76523 2004-04-25
- 打赏
- 举报
楼上的朋友:
我按照你提供的方法试了,在我该口令的代码里声明了NAMELookup和OSMemFree,改完口令前后我都调用了call EnsureUserInNAB(username) ,没有报错,可是问题依然存在!
用户还是可以得用以前的口令登陆.不晓得什么原因.
我按照你提供的方法试了,在我该口令的代码里声明了NAMELookup和OSMemFree,改完口令前后我都调用了call EnsureUserInNAB(username) ,没有报错,可是问题依然存在!
用户还是可以得用以前的口令登陆.不晓得什么原因.
chenyg2000 2004-04-23
- 打赏
- 举报
Do a View Lookup with the Notes API
Add this to your Declarations section:
' NAMELookup and OSMemFree are used in EnsureUserInNAB.
' NOTE: if you are running this app on a platform other than
' Windows 32 Intel, then you will have to change the name of the
' dll in these two declarations. Look in your Notes executable
' directory for *notes.dll to see what it is called, or for the proper
' form of shared library on your platform.
Declare Sub NAMELookup Lib "nnotes.dll" _
(Byval serverName As Integer, _
Byval flags As Integer, _
Byval numNameSpaces As Integer, _
Byval nameSpaces As String, _
Byval numNames As Integer, _
Byval names As String, _
Byval numItems As Integer, _
Byval items As String, _
rethBuffer As Long _
)
Declare Sub OSMemFree Lib "nnotes.dll" (Byval hBuffer As Long)
Now create a new sub:
' This sub is used to guarantee that the NAB view of users is up-to-date
after adding a new
' user. Domino 1.5 does not force the view to be up-to-date when
authenticating users, so
' we'll do it ourselves so the user can start working right away.
Sub EnsureUserInNAB(Byval fullname As String)
Dim hBuf As Long
Call NAMELookup(0, 0, 1, "$Users", 1, fullname, 1, "HTTPPassword", hBuf)
Call OSMemFree(hBuf)
End Sub
Then, once you have modified all of the documents in the NAB you are going to modify, call EnsureUserInNAB with the user's full name. The NAB will be up-to-date.
This technique is used in Lotus' Domino Registration sample.
如果是直接修改通讯录中个人文档，可以重新索引视图(Ctrl+Shift+F9)
Add this to your Declarations section:
' NAMELookup and OSMemFree are used in EnsureUserInNAB.
' NOTE: if you are running this app on a platform other than
' Windows 32 Intel, then you will have to change the name of the
' dll in these two declarations. Look in your Notes executable
' directory for *notes.dll to see what it is called, or for the proper
' form of shared library on your platform.
Declare Sub NAMELookup Lib "nnotes.dll" _
(Byval serverName As Integer, _
Byval flags As Integer, _
Byval numNameSpaces As Integer, _
Byval nameSpaces As String, _
Byval numNames As Integer, _
Byval names As String, _
Byval numItems As Integer, _
Byval items As String, _
rethBuffer As Long _
)
Declare Sub OSMemFree Lib "nnotes.dll" (Byval hBuffer As Long)
Now create a new sub:
' This sub is used to guarantee that the NAB view of users is up-to-date
after adding a new
' user. Domino 1.5 does not force the view to be up-to-date when
authenticating users, so
' we'll do it ourselves so the user can start working right away.
Sub EnsureUserInNAB(Byval fullname As String)
Dim hBuf As Long
Call NAMELookup(0, 0, 1, "$Users", 1, fullname, 1, "HTTPPassword", hBuf)
Call OSMemFree(hBuf)
End Sub
Then, once you have modified all of the documents in the NAB you are going to modify, call EnsureUserInNAB with the user's full name. The NAB will be up-to-date.
This technique is used in Lotus' Domino Registration sample.
如果是直接修改通讯录中个人文档，可以重新索引视图(Ctrl+Shift+F9)
yang76523 2004-04-23
- 打赏
- 举报
总不至于任何一个用户更改口令后就“tell adminp process all”，或者重起HTTP服务吧，这样的话，谁还相信IBM的话。
lamp2004 2004-04-23
- 打赏
- 举报
tell adminp process all
BubbleReloaded 2004-04-23
- 打赏
- 举报
是啊，密码问题.....
yang76523 2004-04-23
- 打赏
- 举报
再顶！
我的也是改了旧密码后新口令并不能马上生效，登陆还是需要输入原口令，但如果要再次修改密码，必须输入新的口令。
真是烦人，版本升级后尽是些简单问题复杂化！
我的也是改了旧密码后新口令并不能马上生效，登陆还是需要输入原口令，但如果要再次修改密码，必须输入新的口令。
真是烦人，版本升级后尽是些简单问题复杂化！
liuxingyu0435 2004-04-22
- 打赏
- 举报
我也顶，这个问题弄的我头痛。很奇怪，修改后names数据库中的internet密码已经改了，但是没有马上生效。安全到不是问题，因为把修改口令加上输入旧口令验证就可以了。和names数据库的口令验证，如果输入的不是新的口令就不能更改密码。
yang76523 2004-04-22
- 打赏
- 举报
我顶一下,我也为这个问题烦恼!
好象要大概隔个2-3分钟的样子旧密码才失效,可能在服务器配置文档里可以改,但我也没找到,比较麻烦,R5下都没有这个问题的哦.
好象要大概隔个2-3分钟的样子旧密码才失效,可能在服务器配置文档里可以改,但我也没找到,比较麻烦,R5下都没有这个问题的哦.
