次のスクリプトは現在のデータベースのレプリカ ID を表示します。例えば、「852561C1004D958F」のように表示します。
Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Messagebox( db.ReplicaID )