通过web界面注册domino新用户代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】通过web界面注册domino新用户

作者:entry / 发布于2014/7/25/ 1147


	Dim reg As New notesregistration
	Dim session As New notessession
	Dim db As notesdatabase
	Set db = session.currentdatabase
	Dim doc As notesdocument
	Set doc = session.documentcontext
	
	reg.createmaildb = False
	reg.certifieridfile = "cert.id"
	reg.expiration = Today + 2190
	reg.registrationserver = db.server
	reg.idtype = id_certifier
	reg.isnorthamerican = False
	reg.minpasswordlength = 5
	reg.orgunit = ""
	reg.updateaddressbook = True
	reg.storeidinaddressbook = True
	
	Dim firstname As String
	Dim lastname As String
	firstname = doc.firstname(0)
	lastname = doc.firstlast(0)
	
	Call reg.registernewuser(lastname, "u4", _
	db.server, firstname,"", "yourcertidnumber", "", _
	"", "", "", _
	"00000000", notes_full_client)
	
	'为该用户设置internet登录口令
	Dim dbnames As notesdatabase
	Set dbnames = session.getdatabase("","names.nsf",False)
	If dbnames.isopen = False Then
	 Call dbnames.open("","names.nsf")
	End If
	
	Dim vwperson As notesview
	Set vwperson = dbnames.getview("($users)")
	Dim docuser As notesdocument
	Set docuser = vwperson.getdocumentbykey(firstname & " " & lastname)
	docuser.httppassword = doc.idsetpassword(0)
	Call docuser.save(True,False)

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　注册domino　

同语言下

可能有用的

entry贡献的其它代码(10)