Scheduled Agent auf local?

Hi,

habe einen Agenten geschrieben der in Zukunft scheduled (lokal) ablaufen soll. Ich habe den Agenten bereits bei manueller Auslösung getestet da arbeitet er einwandfrei.
Nun habe ich den Agenten auf scheduled gestellt (z.B. alle 5 min.) und meinen Notesklienten in den Userpreferences so eingestellt, das er scheduled Agents akzeptiert (uns anschliessend den PC neu gestartet!). Auch meine Datenbank ist lokal. Alles müsste passen!

Und trotzdem tut sich nix! Woran kann denn das liegen?

Grüsse

Hi Diali,

*Schluck* irgendwie könnte man aus deiner Formulierung schliessen, das ich was dummes getan hab...

Ja, ich hab Notes an und ich bin angemeldet...

ist das etwa falsch?

Grüsse

Hi Taurec,

nun ich bin mir ned ganz sicher...

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace

sind auch das UI-Befehle? Ne, oder?
Auch an den Runtime security Level hab ich auf 3 gestellt, von da dürften keine Probleme kommen, oder? Immerhin löscht der Agent evtl. einige Dateieen auf der Platte...

Grüsse

Hi Diali,

tja, habe den NotesUiWorkSpace verschwinden lassen... ohne Erfolg...

Ich poste hier mal den Code, vielleicht findet ihr noch etwas das stören könnte...

Dim session As New NotesSession
Set CurrentDB = session.getDatabase("","Database.nsf")
Set view = CurrentDB.GetView("ViewAllProblemsByProblemNum")
path = "C:\Test\"
suffix = "*.txt"
file = Dir$(path & suffix, 0)

Do While file <> ""

fileNum% = Freefile
Open path & File For Input As fileNum%
Line Input #fileNum%, verifiedBuild
If (Instr(verifiedBuild,"ExecutionResults of Build:")) Then
verifiedBuild = Right(verifiedBuild,Len(verifiedbuild)-27))

While Not Eof(fileNum%)
Input #fileNum%, ResultInfo.Result, ResultInfo.DocID, ResultInfo.ProbNum
If ResultInfo.Result = "OK" Then
Set doc = CurrentDB.GetDocumentByUNID(Cstr(ResultInfo.DocID))

Set TC_State = doc.ReplaceItemValue( "FormHeaderState", "OK" )
Set TC_Build = doc.ReplaceItemValue( "TC_ResultBuild", VarifiedBuild )
Set TC_Date = doc.ReplaceItemValue( "TC_ResultDate", Date$)
Call doc.Save( True, False )
Elseif ResultInfo.Result = "FAIL" Then
Set doc = CurrentDB.GetDocumentByUNID( ResultInfo.DocID )

Set TC_State = doc.ReplaceItemValue( "FormHeaderState", "TCT_FAIL" )
Set TC_Build = doc.ReplaceItemValue( "TC_ResultBuild", VarifiedBuild )
Set TC_Date = doc.ReplaceItemValue( "TC_ResultDate", Date$)
Call doc.Save( True, False )
Elseif ResultInfo.Result = "PROBLEM" Then
Set doc = CurrentDB.GetDocumentByUNID( ResultInfo.DocID )
Set TC_State = doc.ReplaceItemValue( "FormHeaderState", "TCT_FAIL_PROBLEM" )
Set TC_Build = doc.ReplaceItemValue( "TC_ResultBuild", VarifiedBuild )
Set TC_Date = doc.ReplaceItemValue( "TC_ResultDate", Date$)
If Not view Is Nothing Then Set probdoc = view.GetDocumentByKey(Cstr(ResultInfo.ProbNum),False)
Set rtf = doc.GetFirstItem("TC_RelatedProblems")
If rtf Is Nothing Then Set rtf = doc.CreateRichTextItem("TC_RelatedProblems")
If Not probdoc Is Nothing Then
Call rtf.AppendText(Cstr(Resultinfo.ProbNum) & ": " & probdoc.Problem_Name(0) & ": ")
Call rtf.AppendDocLink(probdoc,probdoc.Problem_Name(0))
Call rtf.AppendText(Chr(10))
End If
Call doc.Save( True, False )
Set probdoc = Nothing
Set rtf = Nothing
End If
Wend

Close fileNum%
Kill path & file
Else
Close fileNum%
End If
file = Dir$()
Loop

Exit Sub

hmm, leider ist das ganze nicht sehr schön formatiert. Eigentlich dachte ich, dass ich das mit <pre></pre> bewerkstelligen könnte, aber geht ned...

Oh man ,so schwer kann das doch wohl ned sein die Sache zum Laufen zu bekommen...

Grüsse

Hi,

das Problem lag an einer anderen stelle, die ich nur beim "normal"-Betrieb des Agenten feststellen konnte...tschuldigung...

Trotzdem Danke

Grüsse