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

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