Sample code

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Sample code

Hello again,

This is an somewhat modified extract from our User Administration Tool, hope this will help.

We do have a demo version of our tool, but it is still in Beta... But please let me know if you need it, and I could send it to you.

Dim userReg As New NotesRegistration

'____________________________________________________________________
'registration defaults

userReg.Expiration= Now() + expDays
userReg.CertifierIDFile = "C:\cert.id"
userReg.IDType = ID_HIERARCHICAL
userReg.MinPasswordLength = 8
userReg.RegistrationServer = "Server1/Birgoth"
userReg.CreateMailDB = False
userReg.StoreIdInAddressbook = False
userReg.IsNorthAmerican = False

'_____________________________________________________________________
'All users, register new user(=ID file)

dim lastName as string
dim idfilePath as string
dim mServer as string
dim firstName as string
dim mInitial as string
dim certPwd as string
dim mFile as string
dim pwd as string
dim licenseType as string

lastName = "Larson"
firstName = "Liza"
mInitial = ""
idfilePath = "C:\llarson.id"
pwd = "xxyx"
mServer = "Server1/Birgoth"
mFile = "mail\llarson.nsf"
certPwd = "password"

licenseType = 176

If Not userReg.RegisterNewUser(lastName, idfilePath, mServer,_
firstName, mInitial, certPwd, "", "", mFile, "",pwd, licenseType) Then
RegisterIDFile = "Could not register user"
Exit Function
End If

'___________________________________________________________
'add to DD

If Not userReg.AddUserToAddressbook( idfilePath, fullName, lastName,pwd,_
firstName, mInitial, mServer, mFile, "", "", "") Then
RegisterIDFile = "Could not add user to Domino Directory"
Exit Function
End If

Regards, Marta

Feedback response number WEBB7KFJVT created by ~Vijay Reponegenobu on 10/15/2008