例: DontSendLocalSecurityUpdates property (NotesReplication - LotusScript)

このエージェントは、ローカルでのアクセス制御の更新を反映するかどうかを切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim rep As NotesReplication
  Set db = session.CurrentDatabase
  Set rep = db.ReplicationInfo
  If rep.DontSendLocalSecurityUpdates Then
    rep.DontSendLocalSecurityUpdates = False
    Print "Send local security updates"
  Else
    rep.DontSendLocalSecurityUpdates = True
    Print "Don't send local security updates"
  End If
  Call rep.Save()
End Sub