LOTUSSCRIPT /COM/OLE のクラス
例:RegisterNewUser メソッド
1. 次のエージェントは、CERT.ID に JYIP.ID を登録します。
Sub Initialize
Dim session As New NotesSession
Dim reg As New NotesRegistration
dt = Datenumber(Year(Today)+1, Month(Today), Day(Today))
reg.RegistrationServer = "AceOne"
reg.CreateMailDb = False
reg.CertifierIDFile = "c:\NotesAdministrator\cert.id"
reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 5 ' password strength
reg.IsNorthAmerican = True
reg.OrgUnit = "AceHardwareNE"
reg.RegistrationLog = "log.nsf"
reg.UpdateAddressBook = True
reg.StoreIDInAddressBook = True
Call reg.RegisterNewUser("Yip", _ ' last name
"c:\NotesAdministrator\jyip.id", _ ' file to be created
"CN=Mail_AceOne/O=AceHardware", _ ' mail server
"Jimmy", _ ' first name
"", _ ' middle initial
"AceHardware", _ ' certifier password
"", _ ' location field
"", _ ' comment field
"jyip.nsf", _ ' mail file
"", _ ' forwarding domain
"AceHardware", _ ' user password
NOTES_DESKTOP_CLIENT) ' user type
End Sub
2. 次のエージェントは、3 人の新規ユーザーを登録しユーザー名の別名と、別名用の言語を設定します。
Sub Initialize
Dim reg As New NotesRegistration
Dim orgs (0 To 10) As String
Dim langs (0 To 10) As String
reg.RegistrationServer = "AceOne"
reg.CreateMailDB = True
reg.CertifierIDFile = "c:\lotus\notes\cert.ID"
reg.Expiration = Today + 1095
reg.IDType = ID_HIERARCHICAL
reg.IsNorthAmerican = False
reg.MinPasswordLength = 5 ' password strength
reg.OrgUnit = "Organization"
reg.UpdateAddressBook = True
reg.StoreIDInAddressBook = True
orgs(1) = "Japanese OU"
langs(1) = "ja"
orgs(2) = "PRC OU"
langs(2) = "zh-CN"
orgs(3) = "Korean OU"
langs(3) = "ko"
reg.AltOrgUnit = orgs
reg.AltOrgUnitLang = langs
Call reg.RegisterNewUser("Taylor", _
"c:\lotus\notes\MTaylor.ID", _
"CN=Our_Mail/OU=Ankara/O=Our_Org",_
"Mike" , _
"", _
"certpass", _
"West", _
"Engineer", _
"mail\MTaylor.nsf", _
"", _
"password", _
NOTES_LIMITED_CLIENT, _
"
Japanese name for Mike
", _
"ja")
Call reg.RegisterNewUser("Miller", _
"c:\lotus\notes\JMiller.ID", _
"CN=Our_Mail/OU=Ankara/O=Our_Org", _
"Jane", _
"", _
"cerpass", _
"West", _
"Engineer", _
"mail\JMiller.nsf", _
"", _
"password", _
NOTES_LIMITED_CLIENT, _
"
Chinese name for Jane
", _
"zh-CN")
Call reg.RegisterNewUser("O'Brien", _
"c:\lotus\notes\SOBrien.ID", _
"CN=Our_Mail/OU=Ankara/O=Our_Org", _
"Steve", _
"", _
"certpass", _
"East", _
"Engineer", _
"mail\SOBrien.nsf", _
"", _
"password", _
NOTES_LIMITED_CLIENT, _
"
Korean name for Steve
", _
"ko")
End Sub
関連項目
RegisterNewUser メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集