加納さんありがとうございます！ プロフィール文書を使用して現在のユーザーを取得できました！ ただし、ご指摘の通り多数の人がアクセスした場合が心配なのですが・・ そして、またひとつ問題が出てしまいました。 過去ログを検索したところ、同じような質問があったのですが、 回答がないようでした・・・。 この閲覧権限を取得するように設定したフォームを編集権限の あるユーザーで編集して保存をかけようとすると、「編集している ときに文書のコピーが保存されています。競合文書として保存し ますか？」というメッセージが表示されてしまいます。 これをなんとか避ける方法はないでしょうか・・？？ ご存知の方教えてください！ ちなみにユーザー名取得に関してがうまくいったスクリプトは 以下の通りです。 (PostOpen) Dim ses As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim pdoc As NotesDocument Dim agent As NotesAgent Set db = ses.CurrentDatabase Set doc = Source.Document If Not(Source.IsNewDoc) Then result = Evaluate(|@SetProfileField_("ProfileP"; "UName";@UserName)|) Set agent = db.GetAgent("(ReaderSet)") Call agent.RunOnServer(doc.NoteID) End If (RederSetエージェント) Dim ses As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim agent As NotesAgent Dim UName2 As String Dim UName As NotesName Dim UNameAbb As String Dim ADate As Variant Dim RirekiStr As String Dim RirekiStr2 As String Dim rStr As String Set db = ses.CurrentDatabase Set agent = ses.CurrentAgent Set doc = db.GetDocumentByID(agent.ParameterDocID) result = Evaluate(|@GetProfileField("ProfileP"; "UName")|) UName2 = result(0) ADate = Now() Set UName = ses.CreateName(UName2) UNameAbb = UName.Abbreviated RirekiStr = doc.RirekiRead(0) RirekiStr2 = ADate & "：" & UNameAbb If RirekiStr = "" Then doc.RirekiRead = RirekiStr2 Else rStr = RirekiStr2 & Chr(10) & RirekiStr doc.RirekiRead = rStr End If Call doc.Save(False, False)