例: EffectiveUserName property (NotesSession - LotusScript)

次のスクリプトは、現在の有効なユーザー名を取得します。

スクリプトがサーバーで実行され、Mutsumi Nakamura がスクリプトを最後に編集して保存した場合、EffectiveUserName プロパティは「Mutsumi Nakamura」を返します。
スクリプトがクライアントで実行されるとき、EffectiveUserName プロパティは現在のユーザーの名前を返します。

' created 1 Jan 1996 by M. Nakamura
' revisions 2 Feb 1996 by M. Nakamura
Dim session As New NotesSession
Dim creator As String
creator = session.EffectiveUserName