Active directory chemin LDAP

Bonjour,

Voici un petit bout de code pour récupérer la chaine LDAP d'un utilisateur depuis son sAMAccountName avec une requête ADO :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Const ADS_SCOPE_SUBTREE = 2
strUserSAMAccountName = InputBox("Entrer le sAMAccountName de l'utilisateur recherché")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.CommandText = "SELECT adspath FROM 'LDAP://" & GetObject("LDAP://RootDSE").Get("DefaultNamingContext") & _
	"' WHERE objectCategory='user' AND sAMAccountName = '" & strUserSAMAccountName & "'"
Set objRecordSet = objCommand.Execute
If Not objRecordSet.EOF Then
	MsgBox objRecordSet.Fields("adspath")
Else
	MsgBox "Utilisateur <" & strUserSAMAccountName & "> non trouvé"
End If

Bonne continuation