Run selected agent on server

For testing purposes you often have to test scheduled agents which only run on server. With this agent you can select all scheduled agents in a database and run them on server.

Download this free guide

Download: IT Certifications 101

Inside this exclusive essential guide, our independent experts break down which IT certifications are worth your time and effort, and how to get started obtaining them to further your career— including specific certifications that any cloud or desktop pro should seriously consider.

Start Download

• Corporate E-mail Address:

  You forgot to provide an Email Address.

  This email address doesn’t appear to be valid.

  This email address is already registered. Please login.

  You have exceeded the maximum character limit.

  Please provide a Corporate E-mail Address.

• • I agree to TechTarget’s Terms of Use, Privacy Policy, and the transfer of my information to the United States for processing to provide me with relevant information as described in our Privacy Policy.

  Please check the box if you want to proceed.

• • I agree to my information being processed by TechTarget and its Partners to contact me via phone, email, or other means regarding information relevant to my professional interests. I may unsubscribe at any time.

  Please check the box if you want to proceed.

By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.

 Option Public
Option Declare

Sub Initialize
 Dim s As New NotesSession
 Dim ws As New NotesUIWorkspace
 Dim db As NotesDatabase
 Dim agent As NotesAgent
 Dim selAgent As Variant
 Dim i As Integer
 On Error Goto Fehler
 
 Set db = s.CurrentDatabase
 
 Forall a In db.Agents
  If a.Trigger = 1 Then
   Redim Preserve varAgent(i)
   varAgent(i) = a.Name
   i = i + 1
  End If
 End Forall
 
 selAgent = ws.Prompt( PROMPT_OKCANCELCOMBO, "Auswahl des Agenten", _
 "Bitte einen Agenten auswahlen: ", varAgent(0), varAgent) 
 If selAgent = "" Then Exit Sub 
 Set agent = db.GetAgent(selAgent)
 If agent.RunOnServer = 0 Then 
  Print "Agent ist gelaufen."
  Exit Sub  
 Else
  Msgbox "Agent konnte nicht gestartet werden.", 64, "Hinweis" 
 End If
 Exit Sub
 
Fehler:
 
 Msgbox "Error (" & Cstr(Err) & " ) -≶ " & Error$(Err), 16, "Agent: Run Agent on Server"
 Exit Sub
End Sub