ACL exportieren / importieren

[two7]

Hallo,

ist es prinzipiell möglich einen Agenten zu schreiben, der die ACL einer DB exportiert und später wieder importiert?

two7

[klaussal]

Warum nicht ?

[m3]

ist es prinzipiell möglich einen Agenten zu schreiben, der die ACL einer DB exportiert und später wieder importiert?

Ja.

[Driri]

Ich würde behaupten, daß es für so eine Aufgabe schon fertige Tools am Markt gibt. Versuch doch mal bei Google dein Glück.

[Glombi]

Es geht ganz einfach mit einem DXL Export / DXL Import.

In der Designer Hilfe ist es sehr gut beschriieben. Hier der Code zum Export der ACL:

Dim session As New NotesSession
   Dim db As NotesDatabase
   Set db = session.CurrentDatabase
   
  REM Open xml file named after current database
   Dim stream As NotesStream
   Set stream = session.CreateStream
   path$ = "c:\"
   filename$ = Left(db.FileName, Len(db.FileName) - 3) & "dxl"
   filename$ = path$ & filename$
   If Not stream.Open(filename$) Then
      Messagebox "Cannot open " & filename$,, "Error"
      Exit Sub
   End If
   Call stream.Truncate
   
  REM Create note collection
   Dim nc As NotesNoteCollection
   Set nc = db.CreateNoteCollection(False)
   nc.SelectACL = True
   Call nc.BuildCollection
   
  REM Export note collection as DXL
   Dim exporter As NotesDXLExporter
   Set exporter = session.CreateDXLExporter(nc, stream)
   Call exporter.Process


Andreas

[two7]

Super.
Vielen Dank für die Info und das Beispiel.

Two7

[Axel]

Schau mal hier: http://searchdomino.techtarget.com/tip/0,289483,sid4_gci1218626,00.html

Vielleicht hilft dir das weiter.

Axel

[cococo69]

Schau mal hier: http://searchdomino.techtarget.com/tip/0,289483,sid4_gci1218626,00.html

Vielleicht hilft dir das weiter.

Axel

... ergänzend:

http://atnotes.de/index.php?topic=32843.msg206470#msg206470

Gruß Armin