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.
was ist daran falsch?
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
- Sub main()
- Dim cn As IADsContainer 'LDAP - Objekte
- Dim usr As IADsUser
- Dim LDAP As IADsOpenDSObject
- Set LDAP = GetObject("LDAP:")
- 'Ein bind mit einer verschlüsselten Anmeldung
- Set cn = LDAP.OpenDSObject("LDAP://BIC-LDAP:46636,dc=bux,dc=bi-consulting,dc=de", "directory manager", "bicbicbic", 1)
- 'Ein bind mit einer unverschlüsselten Anmeldung
- 'Set cn = LDAP.OpenDSObject("LDAP://" & "BIC-LDAP:46636,bux,bi-consulting,de", "Directory Manager", "bicbicbic", 0)
- MsgBox "Verbunden"
- 'Aufruf der den Benutzer anlegt und dessen Eigenschaften konfiguriert
- Set usr = cn.Create("user", "CN=" & strUserName)
- usr.Put "sAMAccountName", CStr(strUserName) 'NT-Anmeldename
- usr.Put "userPrincipalName", CStr(strUserName) 'UPN-Name (Name@Organisation)
- usr.SetInfo 'Alles speichern
- usr.GetInfo 'und neu einlesen
- usr.Put "DisplayName", CStr(strUserName)
- usr.FullName = strUserName
- usr.LastName = strLastName
- usr.Description = strDescription
- usr.HomePage = strHomePagePath
- usr.Profile = strProfil
- usr.HomeDirectory = strHomedir
- usr.Put "homeDrive", CStr(strLaufwerk)
- usr.Put "msNpAllowDialin", True 'geht nur in nicht reiner Win2000 Domain
- usr.SetPassword CStr(strPasswd)
- usr.PasswordRequired = True
- If bolPasswdChangeAfterNextLogon <= True Then
- usr.Put "pwdLastSet", CLng(0) 'aktivierung des Passwort ändern Häkchens
- End If
- usr.AccountDisabled = bolAccountIsDisabled
- If strFirstName <> "" Then usr.FirstName = strFirstName
- If strFirstName <> "" Then usr.NamePrefix = strDescription
- usr.SetInfo 'Alles speichern
- End Sub
was ist daran falsch?