une formule pour modifier password internet ?

[sorayuth]

Bonjour2 serveurs Domino 5.0.10 ( 1 serveur principal et 1 serveur secondaire en cluster)client lotus notes 5.0.10question 1 : comment modifier le mot de passe internet sur le browser web ?explication :- les utilisateurs se connectent à leur messagerie lotus via un navigateur IE5.5, de là , ils ont une page d’accueil à leurs boîtes aux lettres ou lien de leur boites aux lettres / doc perso- un champ : login - et un champ : mot de passe :tout ça se passe bien.le but cherché : c’est d’ajouter le 3 eme champ : modifier de mot de passe : par l’utilisateur quand il veut . c’est vrai qu’il est possible de modifier le mot de passe internet par l’administrateur manuellement. Mais ceci n’est pas le but recherché.une idée merci d'avancesorayuth

[steve]

moi j'ai fait ca en lancant un LotusScript ... dont voilà le code ...Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim j As Integer Dim str_array As Variant Dim ChosenUsername As String Dim ChosenPassword As String Dim num_docs As Integer Dim dateTime As New NotesDateTime("1/1/97") On Error Goto ErrorHandler Set doc = session.DocumentContext Set db = session.CurrentDatabase Dim NamesDb As New NotesDatabase("", "NAMES.nsf") Dim FoundList As NotesDocumentCollection Dim NameDoc Dim eval As Variant str_array = doc.GetItemValue("NotesUserName") ChosenUsername = str_array(0) str_array = doc.GetItemValue("NewPassword") ChosenPassword = str_array(0) ' Open Name and Address Book then search for a ' document that contains the ChosenUsername in ' the FullName field. Then you need to set the ' HTTPassword field in this document to the ' ChosenPassword value. Finally save this document ' in the Name and Address Book. At this time you can ' also delete the document in the SetPassword database ' that triggered this change. Otherwise every time the ' agent ran, it would just set the password over and over again. ' Set FoundList = NamesDb.Search("ShortName = """ + ChosenUsername + """", dateTime, 0) Set FoundList = NamesDb.Search("FullName = """ + ChosenUsername + """", dateTime, 0) If FoundList.count > 0 Then Set NameDoc = FoundList.GetNthDocument(1) Call NameDoc.ReplaceItemValue("HTTPPassword", ChosenPassword) ' Use @Password formula code to scramble the new password value. ' Use LotusScript Evaluate function to execute the formula statement ' in LotusScript. eval = Evaluate("@Password(HTTPPassword)", NameDoc) Call NameDoc.ReplaceItemValue("HTTPPassword", eval) Call NameDoc.Save(False, False) End If doc.Remove(True) Exit Sub ErrorHandler: Dim ErrString As String ErrString="INITIALIZE : Script Error on Line : " + Cstr(Erl()) + Chr(10)+Chr(10)+"Error Message : " + Error$ Print doc.ErrorFieldErrString=ErrString 'In WebQueryOpen agent use doc.ErrorField=ErrString Exit Sub End Subvoilou et bonne chancesteve

[yop]

Dans le Names, via le Web, certains champs, même s'ils sont affichés, ne pourront pas être modifié par l'utilisateur lambda. Ceci pour sécurité.C'est le cas de HTTPPassword.Pour contourner le problème, il faut faire un agent LS dont le signataire a les droits d'admin sur le Names. L'agent récupère la requête de l'utilisateur et c l'agent qui modifie le champ. Pour le user, c impossible s'il n'est pas gestionnaire du names ; ce qui n'est pas concevable.J'ai pas lu le script de steve, mais en tout cas la méthode de l'agent LS est la seule utilisable. C pareil pour la redirection de courrier (MailAddress), quand tu veux autoriser le user à changer son adresse email. La modification n'est pas prise en compte même si l'utilisateur peut modifier ce champ. Il faut qu'un agent gestionnaire du names prenne la requête utilisateur et le fasse pour lui.

[yop]

par contre, l'agent est intégré dans iNotes.

[contact]

il y a sur le site de lotus un modele de base setinternetpassword.nsf qui permet celadeja V4.6cela evite de donner accès au NAB