Mit VB in LDAP einen User anlegen

  • Allgemein

    Mit VB in LDAP einen User anlegen

    Hallo,
    ich habe folgendes Problem, ich möchte mittels VB einen User in LDAP anlegen.
    Als LDAP Server läuft der SunONE von Sun.
    Das Script stoppt bein bind immer und ich bekomme die Fehlermeldung: "Benutzername oder Passwort falsch"

    oder fachlich ausgedrückt

    -2147023570 0x8007052e     [b]LDAP_INVALID_CREDENTIALS[/b]
    Dieser Fehler tritt auf, wenn bei der BIND-Authentifizierung am Verzeichnis der übergebenen Benutzernamen nicht existiert oder das Passwort falsch ist. Eventuell erlaubt der Server auch keine unverschlüsselte Anmeldung.


    VB.NET-Quellcode

    1. Sub main()
    3. Dim cn As IADsContainer 'LDAP - Objekte
    4. Dim usr As IADsUser
    5. Dim LDAP As IADsOpenDSObject
    9. Set LDAP = GetObject("LDAP:")
    11. 'Ein bind mit einer verschlüsselten Anmeldung
    12. Set cn = LDAP.OpenDSObject("LDAP://BIC-LDAP:46636,dc=bux,dc=bi-consulting,dc=de", "directory manager", "bicbicbic", 1)
    14. 'Ein bind mit einer unverschlüsselten Anmeldung
    15. 'Set cn = LDAP.OpenDSObject("LDAP://" & "BIC-LDAP:46636,bux,bi-consulting,de", "Directory Manager", "bicbicbic", 0)
    17. MsgBox "Verbunden"
    20. 'Aufruf der den Benutzer anlegt und dessen Eigenschaften konfiguriert
    21. Set usr = cn.Create("user", "CN=" & strUserName)
    22. usr.Put "sAMAccountName", CStr(strUserName) 'NT-Anmeldename
    23. usr.Put "userPrincipalName", CStr(strUserName) 'UPN-Name (Name@Organisation)
    25. usr.SetInfo 'Alles speichern
    26. usr.GetInfo 'und neu einlesen
    28. usr.Put "DisplayName", CStr(strUserName)
    29. usr.FullName = strUserName
    30. usr.LastName = strLastName
    31. usr.Description = strDescription
    32. usr.HomePage = strHomePagePath
    34. usr.Profile = strProfil
    35. usr.HomeDirectory = strHomedir
    36. usr.Put "homeDrive", CStr(strLaufwerk)
    38. usr.Put "msNpAllowDialin", True 'geht nur in nicht reiner Win2000 Domain
    40. usr.SetPassword CStr(strPasswd)
    41. usr.PasswordRequired = True
    43. If bolPasswdChangeAfterNextLogon <= True Then
    44. usr.Put "pwdLastSet", CLng(0) 'aktivierung des Passwort ändern Häkchens
    45. End If
    47. usr.AccountDisabled = bolAccountIsDisabled
    49. If strFirstName <> "" Then usr.FirstName = strFirstName
    50. If strFirstName <> "" Then usr.NamePrefix = strDescription
    52. usr.SetInfo 'Alles speichern
    55. End Sub



    was ist daran falsch?