Connexion au serveur OpenLDAP en vbScript via openDSObject

J'ai un code qui fonctionne correctement pour vous connecter à un serveur Active Directory:

Dim oDSObj: Set oDSObj = GetObject("LDAP:")
Dim oAuth: Set oAuth = oDSObj.OpenDSObject("LDAP://ldap.domain.com", "DOMAIN\username", "password", 1)

Cependant, je n'arrive pas à trouver la syntaxe pour faire ce travail à l'encontre d'un Serveur OpenLDAP:

Dim oDSObj: Set oDSObj = GetObject("LDAP:")
Dim oAuth: Set oAuth = oDSObj.OpenDSObject("LDAP://ldap.domain.com/ou=Users", "username", "password", 1)

Pour être honnête, je suis un peu un n00b quand il s'agit de LDAP, donc je ne comprends pas ce que dc vs cn vs ou moyens (je sais qu'ils stand pour l'unité d'organisation, le nom commun, etc), mais je ne comprends pas quand vous avez besoin de virer de bord que sur les requêtes.

Une fois que je me connecte au serveur Active Directory, le code suivant interroge:

dc = ""
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = "ADSDSOObject"
oConn.Open "Ads Provider", "DOMAIN\username", "password"            '
Dim rs: Set rs = oConn.Execute("<LDAP://ldap.domain.com" & dc & ">;(& (objectCategory=person)(objectClass=user)(sAMAccountName=" & GetLDAPUserName(sPerson) & "));name,mail,telephoneNumber;subtree")

Mais je me rends compte que sAMAccountName est une ANNONCE spécifique, c'est pourquoi le openLDAP code a besoin d'une syntaxe différente.

L'utilisateur est 'ldapuser' avec un mot de passe de mot de passe, stockées ici:
ou=Users,dc=domain,dc=com

Quel est le code pour se connecter à ce serveur LDAP et de la requête pour le compte d'info?

Salut, U ont spécifié des ANNONCES avec l'authentification fonctionne, j'ai réussi à synchroniser les ANNONCES des utilisateurs, sans préciser les détails d'authentification. Comment spécifier les informations d'authentification de domaine et d'obtenir un détails de l'utilisateur.
Je vous suggère de poser votre question séparément comme sa propre question.

OriginalL'auteur Michael Pryor | 2009-03-31

  1. 1

    J'ai enfin compris:

    sUser = "myusername"
sDN = "cn=" & sUser & ",ou=people,dc=company,dc=com"
sRoot = "LDAP://ldapservername.com/dc=company,dc=com"

Dim oDS: Set oDS = GetObject("LDAP:")
Dim oAuth: Set oAuth = oDS.OpenDSObject(sRoot, sDN, "password", &H0200)

Dim oConn: Set oConn = CreateObject("ADODB.Connection")
oConn.Provider = "ADSDSOObject"
oConn.Open "Ads Provider", sDN, "password"

Dim rs
Set rs = oConn.Execute("<" & sRoot & ">;(uid=" & sUser & ");cn,mail,telephoneNumber;subtree")

wscript.echo rs("cn").value
wscript.echo rs("mail").value
wscript.echo rs("telephoneNumber").value

    OriginalL'auteur Michael Pryor

  2. 1

    Merci beaucoup pour votre code de Michael.
    J'ai modifié pour simplement authentifier les utilisateurs (utilisateur, mot de passe) à l'aide de la centrale serveur OpenLDAP. Voici le code qui a fonctionné pour moi (MSAccess 2003):

    sUser = "TheUserName"
sDN = "uid=" & sUser & ",o=users,dc=MyDomain,dc=it"
sRoot = "LDAP://MyLDAPServer/o=users,dc=MyDomain,dc=it"

Dim oDS: Set oDS = GetObject("LDAP:")

On Error GoTo AuthError
Dim oAuth: Set oAuth = oDS.OpenDSObject(sRoot, sDN, "ThePassword", &H200)
On Error GoTo 0

MsgBox "Login Successful"
Exit Sub

AuthError:
If Err.Number = -2147023570 Then
    MsgBox "Wrong Username or password !!!"
End If
On Error GoTo 0

    OriginalL'auteur Marco S.