This script displays a message about the current database.
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If ( db.Server = "" ) Then
Messagebox( "This database is local." )
Else
Messagebox( "This database is on a server." )
End If