Как определить, на каком сервере выполняется агент - не назначен агент

Question

Мне нужно зафиксировать, на каком сервере выполняется агент. Когда агент является агентом по расписанию, я могу использовать свойство NotesAgent.ServerName. Но когда агент выполняется из URL-адреса, «ServerName» пуст. Возможно ли получить имя сервера?

благодаря Клем

Answer 1

Нашел: NotesSession.CurrentDatabase.Server

Клем

Answer 2

Вы можете получить доступ к свойству сервера класса NotesDatabase, как это:

Dim session As New NotesSession 
Dim db As NotesDatabase 
Dim ag As NotesAgent 

Set db = session.Currentdatabase 
Set ag = session.Currentagent 
If ag.Iswebagent then 
    MsgBox db.server 
End if