在 LotusScript Agent 中如何获取当前服务器的名称？

Question

在通过 WebQueryOpen 运行的 LotusScript Agent 中，如何获取当前服务器的名称？

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