Das Notes Forum

Domino 9 und frühere Versionen => ND6: Administration & Userprobleme => Thema gestartet von: _Arne_ am 31.01.05 - 13:44:01

Titel: Berechtigungs.Frage: Agenten Signieren
Beitrag von: _Arne_ am 31.01.05 - 13:44:01
Moin Moin,

gibt es eine Möglichkeit Usern das Recht einzuräumen Agenten über den Administrator zu signieren (mit der aktiven Server.id) ??

Administrator ist bei diesen Personen vorhanden.

Gruß,
Arne  8)
Titel: Re: Berechtigungs.Frage: Agenten Signieren
Beitrag von: TMC am 31.01.05 - 20:30:37
Afaik nur über Workaround, Arne.

Nur eine Idee:
User "beantragt" die Agentensignierung mit einem Notes-Dokument. Das Dokument landet dann in einer speziellen View.
Nun hast Du einen Agenten, der regelmäßig (also ein scheduled Agent) die View durchgeht. Wenn da ein "Antrag" vorliegt, dann signiert der Agent die entsprechenden Agenten.

An die Ziel-Agenten, die Du signieren willst, kommst Du z.B. so:
Dim docAgent As NotesDocument
Dim ncol As NotesNoteCollection
Dim strNoteID As String
Set ncol = db.CreateNoteCollection(False)
ncol.SelectAgents = True
Call ncol.BuildCollection
strNoteID = ncol.GetFirstNoteId
Do While Not(strNoteID = "")
  Set docAgent = db.GetDocumentByID(strNoteID)

   'jetzt hast Du Zugriff auf die Agenten über docAgent.
   'Hier kannste nun was machen. z.B. Abfragen wie der Agent heißt, und wenn es passt,
   'dann machst Du ein docAgent.Sign

  strNoteID = ncol.GetNextNoteId(strNoteID)
Loop

Dieser Agent, der da läuft, muss allerdings mit dem Administrator signiert sein.

Das ist jetzt nur eine Idee, aber sehe keinen Grund, warum das so nicht gehen sollte  ;)