例: ServerName property (NotesSession - LotusScript®)

次の Visual Basic コードはサーバー名を表示します。クライアントで実行されている場合は例外のメッセージを表示します。

Private Sub ServerName_Click()
Dim s As New NotesSession
s.Initialize
  If s.ServerName <> Null Then
    MsgBox s.ServerName, , "ServerName"
  Else
    MsgBox "Running on a client", , "Not a server"
  End If
End Sub