Domino 9 und frühere Versionen > ND6: Entwicklung

neuen Account per Script

(1/3) > >>

tttonic:
Hi,

probiere gerade ein Script zu schaffen welches mir einen LDAP - Account im lokalen Adressbuch schafft.

Dieses soll per Mail verteilt werden. Habe im Forum schon einiges gefunden leider nur auf Locations. Nur leider wird nicht erstellt und es gibt auch keine Fehlermeldung.
Wäre für einen Tipp dankbar.

gruß

tttonic

Sub Click(Source As Button)
   Set session = New NotesSession
   Set dbCurrent = session.CurrentDatabase
   
   
    'Create connection documents in the user's personal addressbook
   Dim db As New NotesDatabase("" , "names.nsf")
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim success As Variant
   Dim connect As NotesDocument
   Dim State As Integer
   State = 0
   
   Set view = db.GetView("($Accounts)")
   Set doc = view.GetFirstDocument
   Set connect = db.CreateDocument
   connect.AccountName = "LDAP"
   connect.AccountServer = "LDAP.COM"
   connect.AccountProtocol = "LDAP"
   connect.LDAPSearchBase = "o=LDAP"
   success = connect.ComputeWithForm( False, False)
   Call connect.Save(True,True)
   State = State + 1
   
   
   
End Sub

umi:
Sind alle Felder korrekt gesetzt? evtl. das Form property setzen....

tttonic:

--- Zitat von: umi am 14.03.05 - 10:06:39 ---Sind alle Felder korrekt gesetzt? evtl. das Form property setzen....

--- Ende Zitat ---

Ich weiß das er bis zur Ansicht Accouts alles funzt.
Nur danach bin ich mir nicht sicher.

tttonic:
Hi,

nun legt das Script mir den Account zwar an, leider muss ich es nochmals öffnen und erneut speichern damit es richtig funktioniert und stehe gerad auf dem Schlauch.





Sub Click(Source As Button)
   Set session = New NotesSession
   Set dbCurrent = session.CurrentDatabase
   
      'Create connection documents in the user's personal addressbook
   
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim db As New NotesDatabase("" , "names.nsf")
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim success As Variant
   Dim connect As NotesDocument
   Dim State As Integer
   State = 0
   
   Set view = db.GetView("Accounts")
   Set doc = view.GetFirstDocument
   
   Set connect = db.CreateDocument
   connect.form="Account"
   connect.type = "Account"
   connect.accountname = "LDAP"
   connect.AccountServer="LDAP"
   connect.LDAPSearchBase = "o=LDAP"
   connect.AccountLoginName=""
   connect.AccountPassword=""
   connect.AccountProtocol="LDAP"
   connect.SSLStatus=0
   
   
   
   
   success = connect.ComputeWithForm( False, False)
   Call connect.Save(True,True)
   State = State + 1
   
End Sub

diali:
da es sich um eine lokale DB handelt könnte es auch an den Ansichtsindexen liegen.

Dann würde es reichen die Ansichten einmal als Objet zuzuweisen.

Navigation

[0] Themen-Index

[#] Nächste Seite