Agent: Names.nsf -Datei

[rasacani]

Hallo

Da bin ich wieder. Ich habe mich getraut (LS). Ich gebe eine Excel-Datei aus und es klapp auch, aber nicht auf dem Server. Ich habe hier gelesen, das man als alterative auch eine CSV-Datei ausgeben kann. Dies habe ich dann promt eingebaut

-->  OLE: Automation object error       -->      

hier die Stelle wo ich es eingebaut habe:

   Else  ' alle Documente
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set abc = fs.CreateTextFile("c:\Raitest.csv", True)     
      Set otherdoc = otherview.GetFirstDocument 
      While Not otherdoc Is Nothing 
         abc.writeline otherdoc.columnvalues(1)     
         For colmn = 0 To Ubound(otherview.Columns)
           
            MulCol = otherdoc.columnvalues(colmn)
            If Isarray(MulCol) Then
               ColCat = Cstr(MulCol(0) )
               For ColNum=1 To Ubound(MulCol)
                  ColCat=ColCat & " | " & Cstr(MulCol(ColNum))
               Next ColNum
               
               xlApp.cells(row,colmn+1) = ColCat
            Else
               xlApp.cells(row,colmn+1) = Cstr( MulCol )
            End If
      'xlApp.cells(row,colmn+1) = otherdoc.columnvalues(colmn)     
         Next   
         row=row+1 
         Set otherdoc = otherview.GetNextDocument(otherdoc)     
      Wend

      abc.close
   End If

Was kann das denn schon wieder sein?

Rainer

[m3]

1) Ist das überhaupt ein Windows-Server, auf dem der Agent läuft?
2) Welches Windows am Server?
3) In welcher Zeile kommt der Fehler?

MS meint zu der Fehlermeldung:

Dieses Verhalten tritt auf, wenn Sie für das Klassenargument der CreateObject- oder der GetObject-Funktion einen falschen Wert verwenden. Das Klassenargument besteht aus dem Name der Anwendung, die das Objekt (Anwendung) bereitstellt, dem eine Periode und der Typ des Objekts Klasse folgen, um (Objecttype) zu erstellen, oder zurückzugeben.

[rasacani]

Hallo

Der Agent soll später auf einem Windows-Server laufen. In meinem Test läuft er noch Lokal.

Der Fehler kommt bei        abc.open


Dein Zitat klingt wunder schön, aber es verwirrt mich nur noch mehr. Wenn du den Fall verfolgt hast ist dir sicher aufgefallen, daß ich mit LS biher noch nicht viel am Hut hatte. 


Rainer

[koehlerbv]

Zwei Dinge, Rainer: abc.open (wo angeblich der Fehler provoziert wird) ist in Deinem geposteten Code nicht zu finden.
Weiters: Warum machst Du das via Windows und FSO und nicht direkt über Notes-Bordmittel (DesignerHelp-Stichwort: "File Handling")?

Bernhard

[rasacani]

Hallo

Ich habe Das Skript noch einmal umgebaut:

Sub Initialize
   Dim s As New notessession
   Dim db As notesdatabase
   Set db= s.currentdatabase
   Dim uiw As New NotesUIWorkspace
   Dim otherdoc As NotesDocument
   Dim otherview As NotesView
   Dim othercol As NotesDocumentCollection
   Dim uiv As notesuiview
   Set uiv = uiw.currentview
   Dim MulCol As Variant
   
   currentviewname="_Personen"
   
   Set otherview = db.GetView(currentviewname)
   
'     alle Documente
'                                                                                                                             Datei zuweisen
   Open "E:\Domino\data\Adressbuch.txt" For Output Access Write As #1     ' auf Server
'                Open "C:\Adressbuch.txt" For Output Access Write As #1                          ' aus Aktionen
'                                                                                                                            Ansicht lesen     
   Set otherdoc = otherview.GetFirstDocument 
   While Not otherdoc Is Nothing 
'                                                                                                                            Datei schreiben
      Print #1,otherdoc.columnvalues(1)
      Print #1, otherdoc.columnvalues(3)
'                                                                                                              Ansicht lesen nächster Satz   
      Set otherdoc = otherview.GetNextDocument(otherdoc)     
   Wend
'                                                                                                                             Datei schließen
   Close #1
   
End Sub


Starte ich den Agenten per Hand an läuft er. Signiere ich die Datenbank und lasse den Agenten mit dem Schedul laufen bekomme ich folgende Fehlermeldung:

Error creating product objekt     

Kann das ein Rechteproblem sei?
Was kann man tun?

Gruß Rainer

 

[koehlerbv]

Scheduled agents dürfen keine Frontend-Objekte beinhalten. Du verwendest davon allein drei Stück ...

Bernhard

[rasacani]

Danke für die schnelle antwort.

Kann ich das umgehen in dem ich einem Agenten schreibe der diesen unveränderten Agenten aufruft?

Gruß Rainer

[DerAndre]

Nein,

weiel Du dann immernoch Frontend-Objekte benutzt.
Du mußt den Agenten so umschreiben, das nichts mehr mit UI drin vorkommt

Also ohne UIWorkspace UIview

[rasacani]

Ich hab's ja versucht 

wie Andre geschriebenhat habe ich mir diese UI-Dinge angesehen unbeschlossen sie aus dem Skript zu entfernen.

1. Test (lokal)                                  -->   es geht immer noch

2. Test (auf Server zeitgesteuert)   -->   operation is disallowed in this session

Warum kann das nicht überall gleich laufen


Gruß Rainer 

[koehlerbv]

Da Dein Agent eine Datei ins Filesystem des Servers schreiben soll, deutet diese Meldung darauf hin, dass Du dem Agent nicht genug Rechte ("uneestricted"!) gegeben hast.

Bernhard

[rasacani]

Das war's

Die Rechte des Agenten. Vielen Dank für die für die vielen Tip's.



Gruß Rainer