RegisterNewUser Error

Hi,

I´m trying to create a new Domino user with CertifierName. But I get this message: Entry not found in index

Dim s As New NotesSession

Dim nr As NotesRegistration

Dim Lname As String 

Dim Fname As String 

Dim UseridFile As String 

Dim UserPassword As String 

Dim UserMailPath As String



Set nr = New NotesRegistration

nr.EnforceUniqueShortName = False

nr.UseCertificateAuthority = True

nr.UpdateAddressBook = True

nr.RegistrationServer = "Acme/Servers"

nr.MailSystem = 0

    nr.CertifierName = "*/Country/Company"



FName = Inputbox("First Name",,"TestFirstName") 

LName = Inputbox("Last Name",,"TestLastName") 

UserPassword = Inputbox("Password",,"Password") 

UserMailPath = Inputbox("Mail File Path",,Trim(Left(FName,1)+LName) +".nsf")





Call nr.RegisterNewUser(LName,"c:\jyip.id","CN=Acme/O=Servers", FName, "", "","", "", UserMailPath, "", UserPassword)	

Can anyone see whats wrong with the code?

//Henrik

Subject: RegisterNewUser Error

The certifier name should be without the asterisk. Specify instead:

nr.CertifierName = “/Country/Company”