Lotus notes 获取注册的lotus脚本是否使用OU和O？

我试图从新创建的用户ID获取OU和O

TestUser1.id

问题：我想获得新寄存器ID的完整路径

1没有登录到该帐户以返回用户ID信息

完整路径=CN=TestUser1/OU=Software/O=pcs

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess(mailsvr)
  noteid$ = adminp.SetUserPasswordSettings( _
  "CN=TestUsesr1/OU=Software/O=pcs", PWD_CHK_LOCKOUT, 0, 0, True)
  If noteid$<> "" Then
    Dim db As New NotesDatabase(mailsvr, "admin4.nsf")
    Dim ws As New NotesUIWorkspace
    Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
  End If
End Sub

实际上，我真正想做的是强制用户首次登录帐户，以强制用户更改其http密码

对于新创建的ID，我不确定这是否是正确的方法

以下链接与此主题相关：

---

正如您在链接问题中已经部分回答的那样，强制用户更改其互联网密码非常容易：

从server names.nsf获取用户文档 将字段HTTPPasswordForceChange设置为1 下面是一些示例代码，没有错误处理，没有语法检查。 从文档中可以看出，您的adminp示例也应该可以工作，但是如果服务器配置为检查密码，它将锁定用户，并且不允许用户登录

Dim db as NotesDatabase 如注释所示的昏暗viwUser Dim docUser as NOTES文档 Set db=New NotesDatabase yourServer，names.nsf 设置viwUser=db.GetView$Users 设置docUser=viwUser.GetDocumentByKey CN=TestUsesr1/OU=Software/O=pcs 调用docUser.ReplaceItemValue HTTPPasswordForceChange，1 调用docUser。保存True，True，True

---

谢谢，我浪费了这么多天来寻找注册和管理过程的解决方案…谁知道只需要修改地址簿。已经可以了。非常感谢~