Nützt ev. das hier?
Type REPLSERVSTATS
Pull As REPLFILESTATS
Push As REPLFILESTATS
StubsInitialized As Long
TotalUnreadExchanges As Long
NumberErrors As Long
LastError As Integer
End Type
Declare Function ReplicateWithServerExt Lib "nnotes.dll" Alias "ReplicateWithServerExt" ( Byval PortName As Long, Byval ServerName As String, Byval Options As Long, Byval NumFiles As Integer, Byval FileList As String, ExtendedOptions As Long, retStats As REPLSERVSTATS ) As Integer
Function ReplicateDatabase( SourceServer As String, TargetServer As String, TargetDb As String, RepFlags As Long ) As Integer
'by http://www-10.lotus.com/ldd/46dom.nsf/0/13133796bf6cadf4852568e2005b8f9a?OpenDocument
'*** Replicate database given by TargetServer!!TargetDb with a replica it has on SourceServer.
'*** Use RepFlags& to specify Push, Pull or both.
'*** Returns True if successfull, False otherwise.
Dim Tdb As String
Dim hdb As Long
Dim RetStats As REPLSERVSTATS
Dim rc As Integer
ReplicateDatabase% = False
'*** Build a path to the database.
If TargetServer$ = "" Then
Tdb$ = TargetDb$
Else
Tdb$ = TargetServer$ & "!!" & TargetDb$
End If
'*** Do the replication thang. Can check RetStats to display what hapened... maybe later!
rc% = ReplicateWithServerExt( 0&, SourceServer$, RepFlags&, 1&, Tdb$, 0&, RetStats )
If rc% <> 0 Then
'Messagebox "Rep with server failed."
Exit Function
End If
ReplicateDatabase% = True
End Function
Hier kannst du angeben, mit welchem Server die DB repliziert werden kann.