Domino 9 und frühere Versionen > ND6: Entwicklung

ACLs automatisch erstellen

<< < (3/4) > >>

Axel:

--- Zitat von: joshuax112 am 09.03.06 - 11:04:57 ---...ich muß/möchte mich im Moment in Notes einarbeiten und das leider recht schnell :-) Daher die vielen Fragen. Wenn es zu viele werden, sagt es einfach und ich halte mich ganz zurück.
--- Ende Zitat ---

So war das nicht gemeint. Du kannst hier Fragen stellen, so viel du willst.

Aber aus deinen Fragen stellt sich heraus, dass dir viele Grundlagen fehlen. Daher der Hinweis auf Kurse und Literatur.


Automatisch IDs erstellen geht so nicht. Das ist ein eigener Prozeß, der über den Admin-Client gehandelt wird. Meines Wissens kann man allerdings mehrere User über eine Textdatei registrieren. Da hab ich aber keine Erfahrung damit.

Das automatisierte Anlegen von Datenbanken und Füllen der ACL könnte man über einen Agenten machen, der sich die Infos aus einem Dokument holt. Das ist aber nicht ganz trivial. Dazu ist aber einiges an Gehirnschmalz zu investieren.

Axel

HH:
Automatisch IDs erzeugen geht mit der NotesRegistration Class:

Sub Click(Source As Button)
   Dim tmpDoc As NotesDocument
   Set tmpDoc = thisDb.CreateDocument
   
   If ws.DialogBox( "dlgRegistrierung", True, True, False, False, False, False, "Benutzerregistrierung", tmpDoc, True, False, True ) Then
      Dim reg As NotesRegistration
      Set reg = New NotesRegistration
      Dim expirationDate As New NotesDateTime( "21.06.2100" )
      
      'Voreinstellungen
      reg.CertifierIDFile = tmpDoc.zulassungsstelle(0)
      reg.CreateMailDb = True
      
      reg.EnforceUniqueShortName = False
      reg.Expiration = expirationDate.LSLocalTime
      reg.GroupList = tmpDoc.gruppen
      reg.IDType = ID_HIERARCHICAL
      reg.IsNorthamerican = False
      reg.IsRoamingUser = False
      reg.MailCreateFTIndex = False
      reg.MailInternetAddress = tmpDoc.email(0)
      reg.MailOwnerAccess = 2
      reg.MailSystem = 0
      reg.MailTemplateName = tmpDoc.mailTemplate(0)
      reg.MinPasswordLength = 6
      reg.NoIDFile = False
      reg.OrgUnit = tmpDoc.firma(0)
      reg.RegistrationLog = "log.nsf"
      reg.RegistrationServer = tmpDoc.registrierungsserver(0)
      reg.ShortName = tmpDoc.vorname(0) + " " + tmpDoc.nachname(0)
      reg.StoreIDInAddressBook = False
      reg.StoreIDInMailfile = False
      reg.SynchInternetPassword = False
      reg.UpdateAddressBook = True
      reg.UseCertificateAuthority = False
      
      lastname = tmpDoc.nachname(0)
      Dim fpraefix As String
      fpraefix = Replace( tmpDoc.nachname(0) + tmpDoc.vorname(0), " ", "" )
      fpraefix = Replace( fpraefix, ".", "" )
      fpraefix = extUmlaute( fpraefix )
      idFile = "c:\ids\people\" + fpraefix + ".id"
      mailServer = tmpDoc.mailServer(0)
      firstname = tmpDoc.vorname(0)
      certPW = "xxxxxxxxxxxxx"
      mailDbPath = "mail/" + fpraefix + ".nsf"
      userpw = "xxxxxxxxxxx"
      
      
      If reg.RegisterNewUser( _
      lastname, _
      idFile, _
      mailServer, _
      firstname, _
      middleinitials, _
      certPW, _
      location, _
      comment , _
      maildbPath, _
      fwdDomain, _
      userpw, _
      usertype, _
      altName, _
      altNameLang ) Then
         Msgbox "Die Person wurde erfolgreich registriert!", 64, "Info"
      End If
   End If
End Sub

Axel:
Hmmm!  Wieder was gelernt.   :D


Danke.
Axel

joshuax112:
Hallo HH,

vielen Dank für den genialen Post. Das werde ich nachher implementieren. Das hilft mir wirklich weiter. Hatte schon befürchtet die Aussage weiter oben würde stimmen und ich könne das nicht automatisch erstellen.

Vielen, vielen Dank,
  Gruß, Joshi

ascabg:
@Joshi (joshuax112)

Bitte beachte aber, dass HH in seinem Code noch eine eigene Dialogmaske mit Eingabefeldern verwendet, die er spaeter in seinem Code verwendet.

Auch muessen Dir die Passwoerter fuer die Certifier-Id's bekannt sein.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete