Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: two7 am 27.11.06 - 12:45:00
-
Hallo,
ist es prinzipiell möglich einen Agenten zu schreiben, der die ACL einer DB exportiert und später wieder importiert?
two7
-
Warum nicht ?
-
ist es prinzipiell möglich einen Agenten zu schreiben, der die ACL einer DB exportiert und später wieder importiert?
Ja.
-
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.
-
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
-
Super.
Vielen Dank für die Info und das Beispiel.
Two7
-
Schau mal hier: http://searchdomino.techtarget.com/tip/0,289483,sid4_gci1218626,00.html
Vielleicht hilft dir das weiter.
Axel
-
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