[AP] RunOnServer

Dim ss As New NotesSession, db As NotesDatabase
Dim agent As NotesAgent
'
Set db = ss.CurrentDatabase
Set agent = db.GetAgent("(agent_A1. IPQC ANF)")
'If agent.RunOnServer = 0 Then
If agent.Run = 0 Then
Print "RunOnServer is success...!!"
Else
Print "RunOnServer is fail...!!"
End If