例: Server property (NotesDirectory - LotusScript®)

このボタンは、検索時に使用されているサーバーの名前を表示します。このボタンが含まれるフォームには、検索を実行する別のボタンが含まれています。

Dim session As NotesSession
Dim directory As NotesDirectory
Sub Initialize
	Set session = New NotesSession
	Set directory = session.GetDirectory("myserver/Acme")
End Sub

Sub Click(Source As Button)
	Dim svr As String
	svr = directory.Server
	If svr = "" Then
		svr = "Local"
	End If
	Msgbox svr,, "Server"
End Sub