agent aus anderer db heraus starten

[nsm]

hallo leute,

ich habe zwei agenten in zwei dbs.
agent A in db A selektiert einträge und kopiert diese in db B.
agent B in db B prüft diese einträge und führt änderungen durch.

nun will ich nicht immer in db A gehen und agent A starten und
dannach db B öffnen und agent B ausführen.
ein zeitsteuerung der agneten ist nicht möglich.

wer kann mir sagen wie ich den agent A in db A von db B heraus anspreche?

danke für die hilfensm

[Axel]

Hi,

versuch's mal so:

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim agent As NotesAgent
    Set db = New NotesDatabase("Servername", "Datenbank")
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
         Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
End Sub

Ich weiss allerdings nicht, ob es funktioniert.

Axel

[nsm]

hallo axel,

danke für die rasche antwort.
habe nur noch das problem, daß die ausführugn mit der fehlermeldung,
daß die db in der aufzurufenden agent steht nicht geöffnet ist,
abbricht.

kanst du mir bitte weiterhelfen?

danke nsm

[ata]

... muß der Agent auf dem Server laufen, oder kann er vor Ort gestartet werden?

agent.Run  => vor Ort
agent.RunOnServer => auf dem Server

ata

[nsm]

hallo ata,

der agent soll lokal laufen.

nsm

[ata]

... man denkt nicht immer daran, aber ab und zu wird die Notes.ini oder im Filesystem etwas eingebunden und dann wundert man sich - daher die Ergänzung...

  ata

[Axel]

Hi,

versuch's mal damit.

Sub Initialize
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim agent As NotesAgent
    Set db = New NotesDatabase("Servername", "Datenbank")
    Call db.Open("", "")
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
End Sub


Axel

[nsm]

hi, axel,

funkt leider auch nicht.


nsm

[Axel]

Hi,

tjoo, nu fällt mir im Moment auch nix mehr dummes ein.  

Ein getriggerter Agent (wenn neues Dokument) kommt nicht in Frage ?

Axel

[ata]

... versuchs mal so...

Dim s As New NotesSession
Dim db As NotesDatabase
Dim agent As NotesAgent
Set db = s.getDatabase("Servername", "Datenbank")
If db.IsOpen Then
    Set agent = db.GetAgent("Agent to be run LotusScript")
    If agent.Run = 0 Then
        Messagebox "Agent ran",, "Success"
    Else
        Messagebox "Agent did not run",, "Failure"
    End If
Else
    Print "Entweder zuwenig Rechte auf die DB, oder die DB existiert nicht....- Pfad überrprüfen..."
End If


ata