Domino 9 und frühere Versionen > ND6: Entwicklung

Serveragenten vom Client aus Starten

(1/2) > >>

dgerhardt:
Hallo zusammen!

Ich habe einen sehr komplexen Agenten, der sowohl im Client als auch auf dem Server gestartet werden kann. Meine Tests haben gezeigt, das der Client etwa 20 Min. benötigt, während der Serveragent nur minimale 2 min. benötigt. Es läuft aber das gleiche Programm und zum Testen habe ich Server und Client auf der gleichen Maschine laufen lassen (sonst wäre der Server auf jeden Fall im Vorteil ;-) ).

Ein Serveragent startet erneut, wenn man diesen deaktiviert und wieder aktiviert. Kann man das auch via Lotus Script in einem Rutsch machen, ohne den Designer aufzurufen bzw. diesen überhaupt installiert zu haben? Natürlich ist an entsprechende Rechte zur Ausführung von Agenten gedacht.

Hat jemand eine Idee oder sogar schon ein fertiges Script dafür? Wäre klasse!  8)

umi:
schon mal die NotesAgent klasse angeschaut?
NotesAgent.runOnServer()

dgerhardt:
Habe es gelöst...

Sub Click(Source As Button)   
   Const agentName = "USERREGSERVER"
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   
   Forall agent In db.Agents
      
      If Ucase(Trim(Strrightback(agent.Name,"|"))) = agentName Then
         Print agent.Name
         
         agent.IsEnabled = False
         Call agent.Save
         agent.IsEnabled = True
         Call agent.Save
         
      End If
   End Forall
   
End Sub

Danke für den TIP

ascabg:
Hi

Kleine Frage.

Du weist wie der Agent heisst aber durchlaeufts alle in der Datenbank befindlichen Agenten, um Deinen Agenten zu finden??  ???


--- Code: ---Set db = session.CurrentDatabase

Set agent = db.GetAgent("DeinAgent")
If Not agent Is Nothing Then
  If agent.RunOnServer( ) = 0 Then print "ok" Else print "Fehler"
End If

--- Ende Code ---

Andreas

dgerhardt:
Ja, das ist natürlich nur ein kleiner Teil eines noch wachsenden Scriptes.

Mit GetAgent gehts schneller...  :)

Navigation

[0] Themen-Index

[#] Nächste Seite