Modifier un paramètre de site

[josé]

Nous avons changé de proxy, j'aimerai répercuter cette modification dans tous les documents site des utilisateurs. Comment faire sans avoir à passer sur chaque poste.

[unknow]

Bonjour,Tu crées un message avec un bouton, dans ce bouton tu rajoute le code suivant, ça devrai fonctionner, fais un test avec un utilisateurSub Click(Source As Butoon)Dim doc As NotesDocumentDim view As NotesViewDim item As NotesItemDim proxy As StringDim db As New NotesDatabase("","names.nsf")' Entre les informations du proxyproxy = "informations du proxy"Set view = db.GetView("Locations")Set doc = view.GetFirstDocumentWhile Not (doc Is Nothing) set item = doc.replaceItemValue("proxy_http", proxy) call doc.Save(False, False) set doc = view.GetNextDocument(doc)wendMessageBox(" Mise à jour du proxy terminée")End Sub

[josé]

Ok ça marche, mais est il possible de ne modifier que les documents sites contenant l'ancienne adresse du proxy (remplacement de proxyA par ProxyB).Merci

[unknow]

Oui, il faut récupérer la valeur du champ proxy_http et la comparer avec la nouvelle valeurCe qui devrait donner ce codeSub Click(Source As Butoon)Dim doc As NotesDocumentDim view As NotesViewDim item As NotesItemDim proxy As StringDim oldproxy As StringDim db As New NotesDatabase("","names.nsf")' Entre les informations du proxyproxy = "informations du proxy"Set view = db.GetView("Locations")Set doc = view.GetFirstDocumentWhile Not (doc Is Nothing)oldproxy = doc.GetItemValue("proxy_http")if oldproxy <> proxy thenset item = doc.replaceItemValue("proxy_http", proxy)call doc.Save(False, False)end ifset doc = view.GetNextDocument(doc)wendMessageBox(" Mise à jour du proxy terminée")End Sub

[josé]

J'ai cette erreur (type mismatch) lorsque j'exécute le script : Sub Click(Source As Button) Dim doc As NotesDocument Dim view As NotesView Dim item As NotesItem Dim proxy As String Dim oldproxy As String Dim db As New NotesDatabase("","names.nsf") ' Entre les informations du proxy proxy = "111.111.111.1" Set view = db.GetView("Locations") Set doc = view.GetFirstDocument While Not (doc Is Nothing) oldproxy = doc.GetItemValue("proxy_http") If oldproxy = "222.222.222.2" Then Set item = doc.replaceItemValue("proxy_HTTP", proxy) Set item = doc.replaceItemValue("proxy_FTP", proxy) Set item = doc.replaceItemValue("proxy_Gopher", proxy) Set item = doc.replaceItemValue("proxy_SSL", proxy) Call doc.Save(False, False) End If Set doc = view.GetNextDocument(doc) Wend Messagebox(" Mise à jour du champ proxy terminée")End Sub

[unknow]

Oops, il faut ajouter (0) sur la oldproxy = doc.GetItemValue("proxy_http"), ce qui donneoldproxy = doc.GetItemValue("proxy_http") (0)

[dav]

je crois qu'il y a plus simple: si tu utilises les politiques (si tu es en V6): tous tes paramètres peuvent êtres défini pour un user/groupe de users.

[josé]

Opération effectuée, merci de vos réponses