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

Question

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

Answer 1

Нашел это: NotesSession.CurrentDatabase.Server

Клем

Answer 2

Вы можете получить доступ к свойству Server класса 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