No me inserta nueva persona
Hola, estoy haciendo un agente en lotuscript para que me inserte mis nuevos usuarios en la NAB. El caso es que me inserta bien el nombre del usuario en el grupo que le indico, pero no me crea la persona. Este es el código que pongo, ¿qué me falta? Gracias!
Set docPersona = nab.CreateDocument
Call docPersona.ReplaceItemValue("LastName", doc.GetItemValue("users_login")(0))
Call docPersona.ReplaceItemValue("FullName", doc.GetItemValue("users_login")(0))
Call docPersona.ReplaceItemValue("HTTPPassword", doc.GetItemValue("users_pass")(0))
Call docPersona.Save(False,True)
Set docPersona = nab.CreateDocument
Call docPersona.ReplaceItemValue("LastName", doc.GetItemValue("users_login")(0))
Call docPersona.ReplaceItemValue("FullName", doc.GetItemValue("users_login")(0))
Call docPersona.ReplaceItemValue("HTTPPassword", doc.GetItemValue("users_pass")(0))
Call docPersona.Save(False,True)
Respuesta de e6967712
1
Mirate la web:
http://www-10.lotus.com/ldd/today.nsf/Lookup/extranet2
Tiene el codigo que necesitas
Function Addusertonab(userid As String, password As String) As Integer
' Return values
' 0 for failure,
' 1 for updated person document,
' 2 for new person document
addusertonab = 0
Dim Partnernab As New notesdatabase("","Partnernab.nsf")
If partnernab Is Nothing Then Exit Function
Dim findpeople As notesview
Set findpeople = Partnernab.getview("($Users)")
If findpeople Is Nothing Then Exit Function
Dim nabpersondoc As notesdocument
Set nabpersondoc = findpeople.getdocumentbykey(userid , True)
If nabpersondoc Is Nothing Then ' add person!
Set nabpersondoc= New NotesDocument(PARTNERNAB)
nabpersondoc.Type="Person"
nabpersondoc.Form="Person"
nabpersondoc.FullName=userid
nabpersondoc.LastName=userid
nabpersondoc.HTTPPassword=password
Call nabpersondoc.computewithform(False,False)
If nabpersondoc.Save(True,False) Then addusertonab = 2
Exit Function
Else
' we'll update the password field with
' the password sent in, then exit
nabpersondoc.HTTPPassword= password
Call nabpersondoc.computewithform(False,False)
If nabpersondoc.Save(True,False) Then addusertonab = 1
Exit Function
End If
End Function
Pero este codigo tiene un inconveniente, no es inmediato.
Mirate la solución que usa un API (dll)
http://www.keysolutions.com/NotesFAQ/howuser.html
http://www-10.lotus.com/ldd/today.nsf/Lookup/extranet2
Tiene el codigo que necesitas
Function Addusertonab(userid As String, password As String) As Integer
' Return values
' 0 for failure,
' 1 for updated person document,
' 2 for new person document
addusertonab = 0
Dim Partnernab As New notesdatabase("","Partnernab.nsf")
If partnernab Is Nothing Then Exit Function
Dim findpeople As notesview
Set findpeople = Partnernab.getview("($Users)")
If findpeople Is Nothing Then Exit Function
Dim nabpersondoc As notesdocument
Set nabpersondoc = findpeople.getdocumentbykey(userid , True)
If nabpersondoc Is Nothing Then ' add person!
Set nabpersondoc= New NotesDocument(PARTNERNAB)
nabpersondoc.Type="Person"
nabpersondoc.Form="Person"
nabpersondoc.FullName=userid
nabpersondoc.LastName=userid
nabpersondoc.HTTPPassword=password
Call nabpersondoc.computewithform(False,False)
If nabpersondoc.Save(True,False) Then addusertonab = 2
Exit Function
Else
' we'll update the password field with
' the password sent in, then exit
nabpersondoc.HTTPPassword= password
Call nabpersondoc.computewithform(False,False)
If nabpersondoc.Save(True,False) Then addusertonab = 1
Exit Function
End If
End Function
Pero este codigo tiene un inconveniente, no es inmediato.
Mirate la solución que usa un API (dll)
http://www.keysolutions.com/NotesFAQ/howuser.html
