Propagation de paramètre dans la fiche de location


Parfois si vous n’avez pas encore déployé les “policies” utilisateur, vous aurez besoin de mettre à jour des paramètres dans les fiches de connexion de vos utilisateurs. Pour ce faire le script suivant mis dans un bouton d’action et envoyé aux utilisateurs (attention aux ECLs) va permettre de faire le job !!! Enjoy !

Sub Click(Source As Button)
On Error Resume Next
Dim db As New NotesDatabase(“”,”names.nsf”)
Dim view As NotesView
Dim doc As NotesDocument

Set view = db.GetView(“($Locations)”)
Set doc = view.GetFirstDocument
Dim i As Integer
i = 0
Do Until doc Is Nothing
Call doc.ReplaceItemValue( “Proxy_HTTP”, “10.4.33.180:8080“)
Call doc.ReplaceItemValue( “WebRetriever”, “3”)
Call doc.Save( True, True )
Set doc = view.GetNextDocument(doc)
i = i + 1
Loop

Msgbox “Paramètre de proxy mis à jour dans ” + Cstr(i) + ” doc(s) !”
End Sub

Advertisements

About pierrekoerber
Hey, pour faire connaissance, laisse-moi un message... drop me a line.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: