例: IsOnServer property (NotesSession - LotusScript®)

次の関数はユーザーの名前を取得して、アドレス帳の [ユーザー] ビューで名前を参照し、ユーザーの [勤務先の電話番号] を文字列で返します。スクリプトがサーバーで実行されるとき、この関数はそのサーバーの Domino ディレクトリを使用します。それ以外の場合は、サーバー Recife の Domino ディレクトリを使用します。

Function getOfficePhone( lname As String ) As String
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim doc As NotesDocument  
  If session.IsOnServer Then
    ' use the Address Book on the same server as the script
    Set db = New NotesDatabase( "", "names.nsf" )
  Else
    ' use the Address Book on server Recife
    Set db = New NotesDatabase( "Recife", "names.nsf" )
  End If
  Set view = db.GetView( "People" )
  Set doc = view.GetDocumentByKey( lname )
  getOfficePhone = doc.OfficePhoneNumber( 0 )
End Function