DominoArea.org [Archive]

Bonjour

je cherche à changer le serveur préféré des répliques sur les postes clients
avez vous une idée ? politiques ? code LS

Merci
G CHAPUIS

Bonjour,

Je savais bien que j'avais vu un script dans ce gout là : Setting a client to replicate with a particular server using LotusScript
https://www-304.ibm.com/support/docview ... wg21234341

Code : Tout sélectionner

Sub Initialize
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Dim re As NotesReplicationEntry

Set db = Session.CurrentDatabase

REM Get source and destination computers
source$ = "NewServerName/Org"
destination$ = Session.CommonUserName +"/Org"

REM Get replication entry
Set rep = db.ReplicationInfo
Set re = rep.GetEntry(source$, destination$, False)
If re Is Nothing Then
Set re = rep.GetEntry(source$, destination$, True)
Else
Call re.Remove
Set re = rep.GetEntry(source$, destination$, True)
End If

Call re.Save
Call db.Replicate( source$ )
End Sub

Bonne journée.
Phil59.

merci
je vais essayer