如何为群组的Lotus Notes设置用户类型，以创建用户和电子邮件帐户？ 使用lotuscript

Question

NotesRegistration.Mailaclmanager =“ LocalDomainAdmins”

默认情况下，它总是给我一个混合的组

默认情况下，如何为LocalDomainAdmins组设置为[Person group]

我的编码更新

Dim reg As New NotesRegistration

Dim dt As Variant
dt = DateNumber(Year(Today)+1, Month(Today), Day(Today))

reg.RegistrationServer = mailsvr    
reg.CreateMailDb = True                 '
reg.CertifierIDFile = certid        
reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 1               
reg.IsNorthAmerican = True
reg.OrgUnit = OU        
reg.RegistrationLog = "log.nsf"
reg.UpdateAddressBook = True
reg.Storeidinaddressbook = false
reg.MailInternetAddress =  internetpath
reg.Shortname=doc.SelectMail(0) 
reg.Mailowneraccess =2      
reg.Mailcreateftindex=True      


Print mailfile
Print "pass 1"
Dim acl As NotesACL
Print "pass 1-1"
Dim aclEntry As NotesACLEntry
Print "pass 1-2"
Dim dbUser As NotesDatabase
Print "pass 1-3"
Set dbUser = New NotesDatabase(mailsvr,mailfile)    '   mail/person.nsf
Print "pass 1-4"
Set acl = dbUser.aCL
Print "pass 1-5"
Set aclEntry = acl.GetEntry("LocalDomainAdmins")
Print "pass 1-6"
aclentry.Usertype = ACLTYPE_PERSON_GROUP    '   cannot used
print "pass 1-7"
call acl.Save()
Print "pass 1-8"

结果给服务器端一些错误

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：邮件\\ yonna

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：通过1

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：传递1-1

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：传递1-2

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：传递1-3

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：通过1-4

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：通过1-5

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理打印：传递1-6

[0924：000A-0B88] 17/08/2017 09:59:46 AM HTTP服务器：代理“注册新用户”错误：未设置对象变量

Answer 1

无法在NotesRegistration类中更改Mailaclmanager的条目类型。

您可以做两件事：

首先：创建用户后，您去获取数据库并“手动”更改条目：

Dim dbUser as NotesDatabase
Dim acl as NotesACL
Dim aclEntry as NotesACLEntry

'- do your registration here

Set dbUser = New NotesDatabase( usermailserver, usermailpath ) 
'- use variables for usermailserver and usermailpath that you use as parameters for registeruser
Set acl = dbUser.acl
Set aclEntry = acl.GetEntry( "LocalDomainAdmins" )
aclEntry.UserType = ACLTYPE_PERSON_GROUP
Call acl.Save()

其次：只需修改模板ACL，以使用正确的类型和访问级别在方括号中包含LocalDomainAdmins-条目（作为[LocalDomainAdmins]）：创建数据库时，它将从模板中复制方括号中的所有条目，并删除方括号。

我更喜欢第一种解决方案，因为它不需要模板的操作，所有东西都放在代码中的某个位置。

只是一件事：永远，而且我从未重复过至少没有最少错误处理程序的情况下编写代码。 对于每种编码语言都是如此。 Lotus Script中的最小错误处理程序如下所示：

On error goto ErrorHandler

'- your code goes here

EndOfRoutine:
  Exit sub 'or exit function
ErrorHandler:
  Print Err & ", " & Error & " in line " & Erl
  Resume EndOfRoutine