Examples: ServerName property (NotesAgent - LotusScript®)

This script gets the name of the server that the current agent is running on. For example, if this agent is scheduled to run once a week on the server Osaka, the ServerName property returns "Osaka."

Dim session As New NotesSession
Dim agent As NotesAgent
Dim server As String
Set agent = session.CurrentAgent
server = agent.ServerName