Pardon d'être direct : et Debian dans tout ça ?
]>Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open strPath, strUsername, strPassword
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT mail,cn,title,uid,autretelephone FROM 'LDAP://ldap.entreprise.fr/OU=people,dc= entreprise ,dc=fr' where present =TRUE"
Set objRecordSet = objCommand.Execute