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
Partager