次のスクリプトは、現在のデータベースのサイズ、割り当て値、最大サイズを表示します。
Dim db As NotesDatabase
Dim session As New NotesSession
Set db = session.CurrentDatabase
Print "Database size is: ", db.Size
Print "Database Quota is: ", db.SizeQuota
Print "Database Maximum Size is: ", db.MaxSize, "K"