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

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

lotusscript lotus-notes

0

Desmond Sim · 技术社区 · 9 年前

我试图从新创建的用户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 回复 | 直到 9 年前

1

Tode 9 年前

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

从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 )