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
'为该用户设置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)