次のエージェントはデータベースのクラスタ複製を切り替えます。
Sub Initialize
Dim db As New NotesDatabase("Cathedral/OurServer", "RSmithTest¥TestMarkForDelete.nsf")
If db.IsOpen Then
If db.IsClusterReplication Then
db.IsClusterReplication = False
Else
db.IsClusterReplication = True
End If
Messagebox db.IsClusterReplication,, _
"Cluster replication is now ..."
Else
Messagebox "Could not open",, "TestMarkForDelete.nsf"
End If
End Sub