Autor Thema: Serveragenten vom Client aus Starten  (Gelesen 2503 mal)

Offline dgerhardt

  • Frischling
  • *
  • Beiträge: 33
  • Geschlecht: Männlich
Serveragenten vom Client aus Starten
« am: 23.02.06 - 11:51:45 »
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)
mit besten Grüßen

Dirk Gerhardt

Offline umi

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.062
  • Geschlecht: Männlich
  • one notes to rule'em all, one notes to find'em....
    • Belsoft AG
Re: Serveragenten vom Client aus Starten
« Antwort #1 am: 23.02.06 - 11:58:36 »
schon mal die NotesAgent klasse angeschaut?
NotesAgent.runOnServer()
Gruss

Urs

<:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jegliche Schreibfehler sind unpeabischigt
http://www.belsoft.ch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~:>

Offline dgerhardt

  • Frischling
  • *
  • Beiträge: 33
  • Geschlecht: Männlich
Re: Serveragenten vom Client aus Starten
« Antwort #2 am: 23.02.06 - 12:47:15 »
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
mit besten Grüßen

Dirk Gerhardt

Offline ascabg

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 3.697
  • Geschlecht: Männlich
Re: Serveragenten vom Client aus Starten
« Antwort #3 am: 23.02.06 - 12:50:17 »
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

Andreas
« Letzte Änderung: 23.02.06 - 12:52:31 von ascabg »

Offline dgerhardt

  • Frischling
  • *
  • Beiträge: 33
  • Geschlecht: Männlich
Re: Serveragenten vom Client aus Starten
« Antwort #4 am: 23.02.06 - 12:57:21 »
Ja, das ist natürlich nur ein kleiner Teil eines noch wachsenden Scriptes.

Mit GetAgent gehts schneller...  :)
mit besten Grüßen

Dirk Gerhardt

Offline umi

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.062
  • Geschlecht: Männlich
  • one notes to rule'em all, one notes to find'em....
    • Belsoft AG
Re: Serveragenten vom Client aus Starten
« Antwort #5 am: 23.02.06 - 14:08:54 »
Wer soll den deinen Agent später mal ausführen dürfen ? Nur Designer?
oder auch der Normale User ?

Gruss

Urs

<:~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Jegliche Schreibfehler sind unpeabischigt
http://www.belsoft.ch
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~:>

Offline dgerhardt

  • Frischling
  • *
  • Beiträge: 33
  • Geschlecht: Männlich
Re: Serveragenten vom Client aus Starten
« Antwort #6 am: 23.02.06 - 14:57:53 »
Personen mit
- mind. Entwickler-Berechtigung
- ACL Option "LS / Java Agenten erstellen"

und im ServerDokument
- entsprechende Rechte zur Ausführung von beschränkten Serveragenten (weil die Signatur des Users in den Agenten eingetragen wird)

und im Agenten
- "beschänkte Operationen mit vollst. Adminrechten zulassen"

So O.K. ???

mit besten Grüßen

Dirk Gerhardt

Offline Tode

  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 6.885
  • Geschlecht: Männlich
  • Geht nicht, gibt's (fast) nicht... *g*
Re: Serveragenten vom Client aus Starten
« Antwort #7 am: 24.02.06 - 10:44:57 »
Wenn das nur sporadisch passieren soll, könntest Du Dir das Script auch sparen: Du lässt den Agenten deaktiviert und startest Ihn einfach aus dem Admin- Client (natürlich nur sofern vorhanden) über den Befehl:

te amgr run "DeineDB.nsf" 'DeinAgent'

Bitte beachte die Verwendung verschiedener Anführungszeichen: das doppelte für die DB, das einfache für den Agenten.

HTH
Tode
Gruss
Torsten (Tode)

P.S.: Da mein Nickname immer mal wieder für Verwirrung sorgt: Tode hat NICHTS mit Tod zu tun. So klingt es einfach, wenn ein 2- Jähriger versucht "Torsten" zu sagen... das klingt dann so: "Tooode" (langes O, das r, s und n werden verschluckt, das t wird zum badischen d)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz