Bonjour à tous,

J'essaye de récupérer des informations sur les visiteurs de mon intranet dans l'AD avec ce script
On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = ("ADsDSOObject")
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT sn FROM 'LDAP://dc=domaine,dc=ch' WHERE Name='VVA'"

objCommand.Properties("SearchScope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
Response.Write "début de l'affichage : <br>"
Response.write "SN : " & objRecordSet.Fields("sn").value & "<br>"

objRecordSet.Close
objConnection.Close


je n'ai pas d'erreur sauf si je retire la première ligne mais je n'ai que début de l'affichage qui s'affiche et pas le résultat du champ.

Une idée ?

merci d'avance

vincent