Agentproblem mit Lotus Script

[MrXYZ]

Das folgende Script läuft einwandfrei auf einem Client, bringt aber bei scheduled Einsatz auf dem Server den Fehler "Unknown Lotus Script Error". Jemand eine Idee ??

Declare Function PathFileExists Lib "shlwapi" Alias "PathFileExistsA" (Byval lpszPath As String) As Long

Sub Initialize
Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace  
   Dim db As New NotesDatabase ("Server","DB.nsf")
   Dim doc As NotesDocument  
   Dim object As NotesEmbeddedObject
   Dim path As String
   Dim rtitem As Variant
   
   path = "y:\"
   
   
   FileExists = (PathFileExists("y:\list.txt") <> 0)
   
   If FileExists = True Then
      
      Dim text As String, fileNum As Integer
      fileNum% = Freefile()
      
      Open "y:\list.txt" For Input As fileNum%
      
      Do Until Eof(1)
         Line Input #1, text$
         
         'Set db = session.CurrentDatabase
         
         Set doc = New NotesDocument( db )
         doc.Form = "Memo"
         doc.subject="Neue Bestellanforderung"
'
         Set rtitem = New NotesRichTextItem( doc, "Body" )
         Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", path & text$)
         Call doc.Send( False, "Mailaddresse" )
         Kill path & text$
         
      Loop
      
      Close fileNum%
      Kill path & "list.txt"
      
      
   End If
   
   FileExists = (PathFileExists("y:\listhps.txt") <> 0)
   
   If FileExists = True Then
      fileNum% = Freefile()
      
      Open "y:\listhps.txt" For Input As fileNum%
      
      Do Until Eof(1)
         Line Input #1, text$
         
         Kill path & text$
         
      Loop
      
      Close fileNum%
      
      Kill path & "listhps.txt"
   End If
   
   
   
End Sub

Hupps ... hätte ich fast vergessen
Agent ist mit meioner ID signiert und ich darf auf dem Server uneingeschränkt Agenten mit Script etc.
ausführen ! Auch mit der Server-ID signiert bekomme ich den gleichen Fehler !

[eknori]

ist die shlwapi.dll auch auf dem Server ( Windows\System32 ) ??

[MrXYZ]

yepp, habe den Part auch schon mal rausgenommen, weil ich dachte,
es liegt daran, aber gleicher Fehler  

[koehlerbv]

Bau mal einen ErrorHandler ein, damit wir wissen, in welcher Zeile es überhaupt scheppert.

Bernhard

[Freezer]

Liegt´s vielleicht an dieser Zeile?

Dim ws As New NotesUIWorkspace  

(UI-Methode im Server-Agenten)

Freezer

[koehlerbv]

Oops, das hätte mir auch gleich auffallen müssen ... Das ist natürlich ein No-No ...

[MrXYZ]

Gute Idee mit dem Errorhandler, damit war der Fehler ziemlich schnell behoben  

Error in Routine: Agent Server
Error Code: 4164
Error in Line: 5
Error Message: Cannot open databases on machines other than the server running your program

habe

 dim ws as New NotesUIWorkspace
dim db as New NotesDatabase ("Server","DB.nsf")

rausgenommen

dim db as NotesDatabase
set db = session.Currentdatabase

eingefügt.

funzt wunderbar !!

DANKÄÄ