如何确定代理正在执行的服务器 - 而不是已调度的代理

Question

我需要捕获正在运行代理的服务器。当代理是预定代理时，我可以使用属性NotesAgent.ServerName。但是当从URL执行代理时，“ServerName”为空。是否可以获取服务器名称？

Answer 1

找到它：NotesSession.CurrentDatabase.Server

CLEM

Answer 2

您可以访问NotesDatabase类的Server属性，如下所示：

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