В агенте LotusScript, как вы получаете имя текущего сервера?

Question

В агенте LotusScript, который запускается через WebQueryOpen, как получить имя текущего сервера?

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   

Это был бы самый быстрый (самый грязный?) Способ получить имя сервера от агента открытия веб-запроса. Класс notesName - удобный объект для работы с иерархическими именами. текст ссылки

Answer 4

'initialize event of a WebQueryOpen agent

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