This script displays the replica ID of the current database. For example, it might display "852561C1004D958F."
Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Messagebox( db.ReplicaID )