Cet agent utilise sur un fichier Txt dans lequel il faut renseigner le mot de passe internet par défaut.


Sub Initialize
Dim uiws As New NotesUIWorkspace
Dim uiView As NotesUIView
Dim v_nomFichier As String
Dim v_idFile As Integer
Set uiView = uiws.CurrentView
Dim ColDocSelectionnes As NotesDocumentCollection
Set ColDocSelectionnes = uiws.CurrentDatabase.Database.UnprocessedDocuments
Ce code est à ajouter dans les codes partagés du names.nsf (Je vous conseil de faire une copie de votre names.nsf avant chaque modification en masse, une erreure est si vite arrivée ).

‘NOM DU FICHIER A TRAITER
v_nomFichier = « c:\pwddujour.txt »
‘Recuperation d’un id de fichier
v_idFile = Freefile
‘Ouverture du fichier
Open v_nomFichier For Input As v_idFile
Do Until Eof( v_idFile)
Line Input # v_idFile,v_Line
v_tabElem = Split (v_line, « ; »)
v_Base = v_tabElem(0)

‘ Si des documents ont été sélectionnés
If ColDocSelectionnes.Count <> 0 Then
Dim doc As NotesDocument
Set doc = ColDocSelectionnes.GetFirstDocument
Do While Not ( doc Is Nothing )
Call doc.ReplaceItemValue(« HTTPPassword », v_Base)
Print v_Base
Call doc.ComputeWithForm( True, False )
Call doc.Save( True, False)
Set doc = ColDocSelectionnes.GetNextDocument( doc )
Loop
End If

Loop
End Sub

Concernant l’execution du script, il faut choisir :

• Sélection du menu actions
• Cible :  Tous documents selectionnés

Une fois le l’agent enregistré et le mot de passe renseigné dans le fichier Txt, vous pouvez executez l’agent depuis le carnet d’adresse (names.nsf).

Après avoir executé l’agent sur les utilisateurs dont vous souhaitiez re-initialiser le mot de passe internet je vous conseil d’executer les commandes :

• Tell adminp process all
• Load updall names.nsf

Rémy