LOTUSSCRIPT /COM/OLE のクラス

例:IsClusterReplication プロパティ
次のエージェントはデータベースのクラスタ複製を切り替えます。

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

関連項目