次のスクリプトは現在のデータベースのレプリカをサーバー Jakarta に作成します
Dim session As New NotesSession Dim db As NotesDatabase Dim replica As NotesDatabase Set db = session.CurrentDatabase Set replica = db.CreateReplica( "Jakarta", "sales.nsf" )