lotus-domino - LotusScript エージェントでは、現在のサーバーの名前をどのように取得しますか?

Question

WebQueryOpen を介して実行されている LotusScript エージェントで、現在のサーバーの名前を取得するにはどうすればよいですか?

Answer 1

Set s = New NotesSession
Set db = s.CurrentDatabase

If db.Server <> "" Then
  Set sName = New NotesName(db.Server)
Else
  Set sName = New NotesName(s.Username)
End If

Answer 2

既に提供されているサンプル コードは適切ですが、私はこの方法でも実行し、サーバーの階層名を取得するだけです。

Set s = New NotesSession
Set db = s.CurrentDatabase
If db.Server <> "" Then
   Set sName = New NotesName(db.Server)
Else
   Set sName = New NotesName(s.Username)
End If
ServerName = sName.Abbreviated

Answer 3

ゲイリーの答えが最も適切です。実際には、階層構文を使用してサーバー名を識別できます。

dim session as new notesSession
dim strCurrServer as string
dim nmServer as notesName

strCurrServer = session.currentagent.servername
' this bit is optional 
set nmServer = new notesName(strCurrServer)
' then you can do stuff like this
print nmServer.Abbreviated   

これは、webquery オープン エージェントからサーバー名を取得する最速の (最も汚い?) 方法です。notesName クラスは、階層名の リンク テキストを処理するための便利なオブジェクトです。

Answer 4

'initialize event of a WebQueryOpen agent

Dim s As New notessession   
Dim servername As String
servername = s.UserName