....zugreifen mit Script auf andere Server, das geht schon, die Frage ist, hat der Server, auf dem das Script läuft auch die Berechtigung ?

Eine Funktion !

wichtig bei den Werten, welche Du der Funktion übergibst,
entweder Server und ReplicaID oder Server und Datenbankname, aber ich denke mit etwas Übung blickst Du schnell Durch wie diese Function funkt - diese funktion liefert immer eine NotesDatabase zurück, so tritt der Fehler "ObjectVariable not set" nicht auf !

Function OpenDatabaseInBackendAgent(iServer As String, iDBName As String, iDBReplicaID As String)
   Dim xSession As New NotesSession
   Dim xdb As NotesDatabase
   Dim xdb2 As New NotesDatabase("" , "")
   
   On Error Goto OpenDatabaseInBackendErrorHandle
   
   Set xdb = xSession.CurrentDatabase
   If iDBReplicaID = "" Then
      If xdb2.Open( iServer , iDBName ) Then
         Set OpenDatabaseInBackendAgent = xdb2
         Print "OpenDatabaseInBackendAgent: " & xdb2.Title & " -DB was opened by Server-/Filename"
      Else
         Print "CouldNotOpenDB"
         Set OpenDatabaseInBackendAgent = New NotesDatabase("","")
         Exit Function
      End If
   Elseif Not iDBReplicaID = "" Then
      'Eliminate the " : " in ReplicaID
      If Not Instr(1 , iDBReplicaID , ":") = 0 Then
         iDBReplicaID = Left(iDBReplicaID , Instr(1 , iDBReplicaID , ":") - 1 ) & Right(iDBReplicaID , Instr(1 , iDBReplicaID , ":") - 1 )
      End If
      iServer = xdb.Server
          'Open Database
      If xdb2.OpenByReplicaID( iServer ,  iDBReplicaID ) Then
         Set OpenDatabaseInBackendAgent = xdb2
         Print "OpenDatabaseInBackendAgent: " & xdb2.Title & " -DB was opened by ReplicaID"
      Else
         Print "CouldNotOpenDB"
         Set OpenDatabaseInBackendAgent = New NotesDatabase("","")
         Exit Function
      End If
   Else
      Print "CouldNotOpenDB"
      Set OpenDatabaseInBackendAgent = New NotesDatabase("","")
   End If
   
   Exit Function
   
OpenDatabaseInBackendErrorHandle:
   Print "CouldNotOpenDB"
   Set OpenDatabaseInBackendAgent = New NotesDatabase("","")
   Exit Function
End Function

leider....

dbcheck = OpenDatabaseInBackendAgent(MailServer, MailFile, "")
'Dim dbcheck As New NotesDatabase(MailServer, MailFile)
level = dbcheck.CurrentAccessLevel

==>

14:03:23                : Agent <REPLICA>  gestartet
14:03:23                :    #######################
14:03:23                :    xx/xx/xx wird bearbeitet
14:03:23  Error         : Line  57 /  Error 202: SET required on class instance assignment
14:03:23  Error         : Line  59 /  Error 183: Variant does not contain an object
14:03:23  Error         : QUELL-Datenbank xx/xx/xx / mail\xxx.nsf Access-Level nicht MANAGER: 0
14:03:23                :    #######################


das script gibt zwar eine db zurück, aber eine leere....

      iServer = xdb.Server

diese Zeile müßtest du mal noch ausschalten, denn er sucht ja so auf dem gleichen server !

...man kann die funktion als NotesDatabase declarieren, okay.

daß er das Set nicht benutzt hat ist mir garnicht aufgefallen - aber da sieht man wieder, wer lesen kann ist klar im Vorteil ;-)

Hi,
hier was aus der Lotus Support Datenbank - vielleicht hilft es weiter:

The user who last saved or "stamped" an agent must be listed in the Run Unrestricted LotusScript agents fields in the Server document.  Note that it may take a period of time for this update to take effect.  (To test if this is the issue, place an asterisk in these fields - to allow access by all.)

The full hierarchical name of the server must be specified in script methods that reference databases via the NotesDatabase Class.  For example, using the Open method, the syntax is as follows:

      Call db.open("ServerA1/US/ACME","sales.nsf")

The server name must be listed explicitly in any referenced database's ACL and listed as Server, Manager.

Andreas

der Beitrag, auf den Du linkst, bezieht sich auf Notes Zeiten vor R6. Unter R6 geht es definitiv. Bitte zieh Dir diese Übersicht rein:

http://www-10.lotus.com/ldd/46dom.nsf/7e6c7e584a76331b85256a46006f083e/574c99ccb345839185256976004e811e?OpenDocument

Da wird auf jeden Fall das passende dabei sein, höchspersönlich von der liebenswerten Julie K. präsentiert :-))

Du könntest die andere Datenbank auf den gleichen Server replizieren. Dann klappt's auch mit dem Agenten.
Nach der Umstellung auf R6 kannst Du dann Deinen jetzigen Code verwenden, wenn Du die Trusted Server eingestellt hast.

Andreas