Autor Thema: ACL exportieren / importieren  (Gelesen 4259 mal)

Offline two7

  • Aktives Mitglied
  • ***
  • Beiträge: 116
ACL exportieren / importieren
« 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

klaussal

  • Gast
Re: ACL exportieren / importieren
« Antwort #1 am: 27.11.06 - 12:47:27 »
Warum nicht ?

Offline m3

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.102
  • Geschlecht: Männlich
  • Non ex transverso sed deorsum!
    • leyrers online pamphlet
Re: ACL exportieren / importieren
« Antwort #2 am: 27.11.06 - 13:04:00 »
ist es prinzipiell möglich einen Agenten zu schreiben, der die ACL einer DB exportiert und später wieder importiert?
Ja.
HTH
m³ aka. Martin -- leyrers online pamphlet | LEYON - All things Lotus (IBM Collaborations Solutions)

All programs evolve until they can send email.
Except Microsoft Exchange.
    - Memorable Quotes from Alt.Sysadmin.Recovery

"Lotus Notes ist wie ein Badezimmer, geht ohne Kacheln, aber nicht so gut." -- Peter Klett

"If there isn't at least a handful of solutions for any given problem, it isn't IBM"™ - @notessensai

Driri

  • Gast
Re: ACL exportieren / importieren
« Antwort #3 am: 27.11.06 - 13:10:09 »
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

  • Gast
Re: ACL exportieren / importieren
« Antwort #4 am: 27.11.06 - 13:26:52 »
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

Offline two7

  • Aktives Mitglied
  • ***
  • Beiträge: 116
Re: ACL exportieren / importieren
« Antwort #5 am: 27.11.06 - 14:11:18 »
Super.
Vielen Dank für die Info und das Beispiel.

Two7

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: ACL exportieren / importieren
« Antwort #6 am: 27.11.06 - 15:29:15 »
Schau mal hier: http://searchdomino.techtarget.com/tip/0,289483,sid4_gci1218626,00.html

Vielleicht hilft dir das weiter.

Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline cococo69

  • @Notes Preisträger
  • Senior Mitglied
  • ****
  • Beiträge: 286
  • Geschlecht: Männlich
  • Super dieses Forum!!!
    • Mein Hobby...

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz