LS User anlegen

Sub Click(Source As Button)


	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document

	vorname = uidoc.FieldGetText("U_Vorname")
	nachname = uidoc.FieldGetText("U_Nachname")
	passwort = uidoc.FieldGetText("U_Passwort")
	passwortbestaetigung = uidoc.FieldGetText("U_Passwortbestaetigung")
	gruppenmitglied = uidoc.FieldGetText("U_Gruppen")
	zertifiziererid = uidoc.FieldGetText("Z_ID")
	zertifiziererpasswort = uidoc.FieldGetText("Z_Passwort")


	If vorname = "" Or nachname = ""  Or passwort = "" Or passwortbestaetigung = "" Or zertifiziererid = "" Or zertifiziererpasswort = "" Then
		Messagebox "Nicht alle Pflichtfelder sind ausgefuellt!"
		Goto ENDE
	End If

	If passwort <> passwortbestaetigung Then
		Messagebox "Die Passwoerter stimmen nicht ueberein!" , mb_iconstop, "Fehler in Passwort"
		Goto ENDE
	End If

	Dim session As New NotesSession
	Dim reg As New NotesRegistration

	registrationname = vorname & "." & nachname
	maildomain = "@domain.com"
	idpath = "Z:\PATH\PATH\"
	mailpath = "mail\"
	mailserver = "server/organisation/DE"

	reg.CertifierIDFile = zertifiziererid
	reg.CreateMailDb = True
	reg.IsNorthAmerican = False
	reg.UpdateAddressBook = True
	reg.StoreIDInAddressBook = True
	reg.SynchInternetPassword = True
	reg.MailTemplateName = "ORG_Mail85.ntf"
	reg.MailOwnerAccess = 0
	reg.MailACLManager = "localDomainAdmins"
	reg.MailInternetAddress = registrationname & maildomain
	reg.RegistrationServer = mailserver

	idfile = idpath & registrationname & ".id"
	mailfile = mailpath & registrationname & ".nsf"


	Call reg.RegisterNewUser(nachname,idfile,mailserver,vorname,,zertifiziererpasswort,,,mailfile,,passwort,,,)


ENDE:

End Sub