Discussion :

[lechatmagik]

je cherche un exemple d'une connexion a un serveur Ldap et de plus qu'on puisse avec la requete récupérer par exemple le mail de la personne souhaité (en mettant en paramètre de la requète le login et pass de la personne)

merci

PS: j'ai déjà fait des recherches mais je n'est pas trouver mon bonheur

[Fiquet]

Regarde du côté d'ADSI qui fourni des fonction pour attaquer LDAP. Je viens de finir un projet de login qui employait ceci en ASP.
http://msdn.microsoft.com/library/de...sual_basic.asp

Après pour avoir le mail de la personne pas besoin de son mot de passe tu n'as pas besoin d'avoir son login, il faut juste le login d'une personne qui a les droits suffisants (qui fait partie du domaine). Il y a donc 2 possibiltés de se connecter sur LDAP, soit avec le login courant du pc soit en mettant un login explicite

Je regarderai au travail demain j'avais trouvé une doc pas mal mais sur le coup je trouve plus

Bonne chance moi aussi j'ai eu beaucoup de mal à trouver de la doc

[lechatmagik]

Merci pour cette réponse , je vais voir tout de suite
non en fait que je cherche à faire c'est une mire de connexion en asp mais qui interroge Ldap avec les login et mdp du formulaire

[Fiquet]

Voilà le lien de la doc comme promis si ça peut t'aider
http://download.microsoft.com/downlo...e4b/adsint.doc

Mais que veux-tu dire par une mire de connexion? Tu veux en faites tester la paire login/password de l'utilisateur par rapport à ses infos dans Active Directory? Si oui je peux t'aiguiller c'est ce que j'ai fait.

[lechatmagik]

merci encore
oui c'est exatement ca

[Fiquet]

Alors voilà ce code VBS si ça peut t'intéresser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Option Explicit
'On Error Resume Next
 
' Déclaration des variables
Dim dso
Dim obj1
Dim sUsername
Dim sPassword
Dim oAdSystemInfo
Const ADS_SECURE_AUTHENTICATION = 1
 
' Récupération de l'objet LDAP
Set dso = GetObject("LDAP:")
 
' Crée un objet ADSystemInfo pour avoir le username courant
Set oAdSystemInfo = CreateObject("ADSystemInfo")
 
' Initialisation de la variable pour l'utilisateur loggé sur la machine
'sUsername = oAdSystemInfo.UserName
 
' Initialisation de la variable en entrant un username quelconque
sUsername = InputBox("Veuillez entrer votre accompte", "Test login", "Accompte")
 
sPassword = InputBox("Veuillez entrer votre mot de passe", "Test login", "Mot de passe")
 
' Connexion sur LDAP en utilisant un nom d'utilisateur explicite
Set obj1 = dso.OpenDSObject("LDAP://domainname", sUsername, sPassword, ADS_SECURE_AUTHENTICATION)
 
' Test si une exception est retournée, alors le login a échoué
If (Err <> 0) Then
	MsgBox "Accompte ou mot de passe incorrect!"
Else
	MsgBox "Login réussi!"
End if

Met-le dans un fichier vbs, modifie le domaine par rapport au domaine où tu te trouves et ça devrait marcher. Il te retourne une erreur en cas de mauvais login. Après si tu veux faire le test tu peux enlever le commentaire de On Error Resume Next.

Si ça marche ce sera facilement portable en ASP (MsgBox en response.write, etc.). C'est le 1er code que j'ai essayé qui marchait

Voilà a+ j'attends ton feed-back

[lechatmagik]

ok merci
je pourrai tester a partir de la semaine prochaine

[wil4linux]

Bonjour, je cherche a récupérer une adresse mail en interrogeant LDAP, mais je ne connais pas vraiment la synthaxe...

[Fiquet]

Hello wil4linux,

Ce code affiche le nom et l'adresse email d'une personne qui est dans un annuaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<%
' Création d'un objet LDAP sans accompte spécifique
'Set objContainer = GetObject("LDAP://DomaineEtChemin")
 
' Création d'un objet LDAP avec accompte spécifique
Set objNamespace = GetObject ("LDAP:")
Set objContainer = objNamespace.OpenDSObject ("LDAP://DomaineEtChemin", "nomUser", "MotDePasse", &H1)
 
' Affiche le nom et le mail trouvés
response.write(objContainer.Get("name") & " ")
response.write(objContainer.Get("mail") & "<br>")
%>

Si le serveur ASP a accès au domaine, on peut simplement employer GetObject() pour se connecter (en commentaire) sinon comme chez moi il faut un utilisateur qui a les droits pour voir le domaine.

Après il faut modifier dans le code "DomaineEtChemin" par rapport à la personne.

Je ne peux pas être beaucoup plus explicit, pour plus d'infos lis la doc que j'ai mis en lien avant, tu y trouveras toutes les autres infos sur ADSI.

[wil4linux]

ok je te remercie..
entre tps g trouvé la solution
jte la fera parvenir demain sur le ce topic..
ca marche dun autre maniere
voila merci encore

cordialement

willy

[wil4linux]

voila mon code comme promis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
'=============================
'le userId est récupérer ds Outlook par 
'currentAddress, c'est l'allias du cranet Outlook
'=============================
 
Function getMailByLdap(userId)
	Dim Adresse
	Dim conLdap,rsLdap,ComLdap
	Dim valeursLdap 
 
	if userId = "" then
	   getMailByLdap = ""
	else
		Set conLdap = Server.CreateObject("ADODB.Connection")
		conLdap.provider ="ADsDSOObject" 
		conLdap.open "Active Directory Provider" 
		Set ComLdap = CreateObject("ADODB.Command") 
		Set ComLdap.ActiveConnection = conLdap
		Set rsLdap = Server.createObject("ADODB.Recordset")
 
		valeursLdap = "givenName, sn, telephoneNumber, mail"
 
                ' récupérer l'adresse mail
		ComLdap.CommandText = "select " & valeursLdap & " from 'LDAP://nom_serveur:389/dc=blabla,dc=blabla,dc=blabla' WHERE cn='" & userId &"'"
		Set rsLdap = ComLdap.Execute
 
		dim returnValue, i
 
		'énumérer tous les enregistrements retournés par LDAP
		Do While Not rsLdap.EOF Or rsLdap.BOF
		   ReturnValue = rsLdap.Fields("mail")
		   If IsArray(ReturnValue) Then
		        For i = LBound(ReturnValue) To UBound(ReturnValue)
		            If ReturnValue(i) <> "" Then
		                getMailByLdap = ReturnValue(i)
		            End If
		        Next
		   Else
		        getMailByLdap = ""
		   End If
		   rsLdap.MoveNext
		Loop
 
		' fermeture des objets de l'annuaire LDAP
		conLdap.Close 
		Set rsLdap = Nothing 
		Set conLdap = Nothing
 
	End if
 
End Function

Voila

bon courage 8)

[Fiquet]

Ah ok oui ça marche aussi ta méthode n'utilise pas ADSI.

Mais pour un login je ne pense pas que passer par ADODB soit possible.

[wil4linux]

c possible...lol

[Fiquet]

ok merci
je pourrai tester a partir de la semaine prochaine

Alors as-tu pu faire marcher ton code?