Automatischer Agent meldet No Resume

[OlliS.]

Hallo Zusammen,

habe folgendes Problem.

Bin dabei ein Feld in eine csv Datei zu schreiben.
Wenn ich den Agenten über meinen Lotus Notes Client starte und als Pfad mein lokales laufwerk angebe erstellt dieser auch eine Datei.
Sobald ich den Agenten automatisiere müsste dieser doch wenn bspw. "C:\" + Datei als Pfad angegeben ist die File automatisch per zeitgesteuerten Agenten auf den Dominoserver schreiben auf dem die Datenbank liegt???
Hier sieht man jedoch nur folgende Fehlermeldung in der log.nsf

12.06.2012 172133   AMgr '.......' is the agent signer of agent '(automatik)automatik' in '........nsf'
12.06.2012 172133   AMgr 'Agent '(automatik)automatik' in '........nsf' will run on behalf of '.........(Hier steht der jenige drin der den Agenten signiert hat in meinem Fall bin ich das)'
12.06.2012 172133   AMgr Agent ('(automatik)automatik' in ............nsf') error message No RESUME


Hier ein auszug der Klasse auf den der Agent zugreift


Dim ExportDatei As String
   Dim fileNum As Integer
   Dim wert As Variant
   Dim i As Integer
   
   On Error GoTo ERROR_EXPORT
   
   ExportDaten = True
   ExportDatei = "Pfad des Verzeichnisses" + Datei
   fileNum% = FreeFile()

   wert = Split(Feld, ",")
   
   Open ExportDatei For Append As fileNum%
   For i=0 To UBound(wert)
      If wert(i) <> "" Then
         Print #fileNum%, wert(i)
      End If
   Next
   Close #fileNum%
   Exit Function
   
ERROR_EXPORT:
   ExportDaten = False
End Function

In folgender Zeile sprint der Debuger auf Error Export
Open ExportDatei For Append As fileNum%

danach schreibt der agent false und gibt die Fehlermeldung per prompt no resume aus

Hat jemand vielleicht eine Idee woran es liegen könnte

[Jens Winkelmann]

1 Hast du mal im Agenten den Runtime security level überprüft?
Steht da eventuell Do not allow restricted operations?
2 Gibt es das Verzeichnis auf dem Server?
3 Ist dein Server ein Windows Server?

No Resume kommt, weil du den Fehler nicht abfängst.
Dein Code sollte folgendermaßen enden:

Code

...

ExitFunction:
 Exit Function

ERROR_EXPORT:
   ExportDaten = False
   Resume ExitFunction 
End Function

[koehlerbv]

Man sollte sich - wenn man schon einen ErrorHandler bemüht - wenigstens Fehlertext und vor allem Fehlerzeile ausgeben lassen. Sowas verstehe ich immer nicht.
Woher das NO RESUME kommt, hat ja jens schon perfekt aufgemalt.

Bernhard

[Pyewacket]

Falls der User unter dem der Dominoserver läuft keine Berechtigung hat,
in das Verzeichnis zu schreiben gibt das auch einen Fehler.

Peter

[OlliS.]

Vielen Dank erstmal für die schnellen Antworten und Tipps werde ich morgen mal probieren.

War oben vielleicht ein bisschen falsch formuliert, mir ging es in ersten Linie darum ob jemand weiß warum der den Befehl Open ExportDatei For Append As fileNum% nicht ausführt.

@Jens Winkelmann: Ja es ist ein Windows Server auf dem der Domino Server installiert ist.
Wie könnte ich rausfinden durch welchen Benutzer der Agent gestartet wird?
Den Administrator Account wird er ja wohl nicht nehmen sonst würde er ja Files Local ablegen.
Ich habe als Test einfach mal als Pfad "E:\"+ Datei angegeben
Datei in dem fall test.csv

[m3]

Ich vermute mal
1) E: ist ein Netzlaufwerk, das am Server gemounted wird
2) Der Domino-Server lauft unter dem Windows-User "SYSTEM"

Wie Du mit einer Forumssuche schnell heraufinden wirst, kann der "SYSTEM" User auf keine Netzlaufwerke schreiben. Wie man das loest wurde hier bereits mehrmals beschrieben.

[OlliS.]

@m3
Nein es ist kein Netzlaufwerk es ist der lokale Datenträger E:
Auf ein Netzlaufwerk habe ich vorher probiert zu verweisen.
Dieses hatte ich über den Dominoclient gemountet (Batch Datei net use...)
hier war aber das selbe Problem

System findet die Benutzerverwaltung so garnicht

[ghostmw]

Moin,

dann mach doch bitte zuerst in deinen "Error-Zweig" ein entsprechendes Print-Statement rein, damit du in Erfahrung bringst, welcher Fehler in welcher Zeile du bekommst.

Dann geht die Ursachensuche schneller.

Du kannst das ungefähr so machen... als Beispiel und bitte die exit function noch mir in den Error-Teil rein, dann ist auch die Fehlermeldung weg.

ERROR_EXPORT:

Print "ERROR: " & error$ & " (" & err & ") in line " & erl

   ExportDaten = False

exit function

End Function