代码之家 › 专栏 › 技术社区 › Desmond Sim

莲花脚本获取注册使用OU和O?

lotusscript lotus-notes

Desmond Sim · 技术社区 · 8 年前

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

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

无需登录 向该帐户返回用户ID信息?

完整路径=CN=TestUser1/OU=软件/O=PC

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

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

1 回复 | 直到 8 年前

Tode 8 年前

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

从server names.nsf获取用户文档
将字段HTTPPasswordForceChange设置为“1”

下面是一些示例代码(没有错误处理,没有语法检查)。

Dim db as NotesDatabase  
Dim viwUser as NotesView
Dim docUser as NotesDocument
Set db = New NotesDatabase( yourServer, "names.nsf" )
Set viwUser = db.GetView( "($Users)" )
Set docUser = viwUser.GetDocumentByKey( "CN=TestUsesr1/OU=Software/O=pcs" )
Call docUser.ReplaceItemValue( "HTTPPasswordForceChange" , "1" )
Call docUser.Save( True, True, True )

推荐文章

Apinya Chabaram · LotusScript获取富文本字段并发送电子邮件

8 年前

hdc · Lotus notes-第一次使用时共享、私有文件夹和LotusScript

8 年前

Desmond Sim · 莲花脚本获取注册使用OU和O?

8 年前

Robert Lewi Kiedrowski · 如何获取Lotus notes邮件文件所有者名称列表

8 年前

Velaro · Lotus脚本-未激发数据库脚本初始化方法

10 年前

Clem · 如何清除列表?

10 年前

Michael Kambeck · 在另一个数据库中创建文档并设置字段值

11 年前

ClaaziX · Lotus Notes-查找类似字段(SELECTION)

11 年前

AHH · 检索Java代理对文档所做的更改

11 年前

Leon Matthys · 在Lotus Notes中,如何将数据库添加到“复制和同步”选项卡,并通过LotusScript在Notes客户端上启动后台复制器?

12 年前