次のスクリプトは、データベースが複製不可に設定されている場合に複製できるように設定し直します。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim rep As NotesReplication
Set db = session.CurrentDatabase
Set rep = db.ReplicationInfo
If rep.Disabled Then
rep.Disabled = False
End If
Call rep.Save()