例: Priority property

次のスクリプトは複製の優先順位を調べ、「中」であれば「低」に変更します。変更を保存するために Call Save() が使用されています。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
If rep.Priority = DB_REPLICATION_PRIORITY_MED Then
  rep.Priority = DB_REPLICATION_PRIORITY_LOW
End If
Call rep.Save()