例: IsClusterReplication property (NotesDatabase - LotusScript®)

次のエージェントはデータベースのクラスタ複製を切り替えます。

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