Recherches les informations d'un utilisateur

Résolu
cs_FPatrick Messages postés 122 Date d'inscription mercredi 27 novembre 2002 Statut Membre Dernière intervention 8 août 2014 - 17 janv. 2008 à 19:25
cs_FPatrick Messages postés 122 Date d'inscription mercredi 27 novembre 2002 Statut Membre Dernière intervention 8 août 2014 - 18 janv. 2008 à 09:30
Bonjour,

Je recherche les informations sur un utilisateur de l'active directory (notamment les groupes dont il fait parti)

Je fais ceci :

Set objConnection = Server.CreateObject("ADODB.Connection")
Set objRecordSet = Server.CreateObject("ADODB.RecordSet")
Set objCommand = Server.CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = 2
objCommand.CommandText = "SELECT ADsPath,samAccountName,memberOf FROM 'LDAP://.....' WHERE objectCategory='user' and samAccountName = 'toto'"


set objRecordSet = objCommand.Execute


et j'ai un message d'erreur sur la derniere instuction "Le tableau n'existe pas."

Lorsque je met ce code dans VB6, ca marche impeccable.

S'il existe une autre solution je suis preneur.

Merci d'avance pour toutes les réponses données.

2 réponses

cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
17 janv. 2008 à 21:32
Dim
objConnection 'As Object (ADODB.Connection)
Dim objRecordSet 'As Object (ADODB.RecordSet)
Dim strConnectionString 'As String
Dim strSQL 'As String

Public Function OpenConn() As Boolean
 CloseConn
 Set objConnection = Server.CreateObject("ADODB.Connection")
 strConnectionString = "Provider=ADSDSOObject;User ID=UserID;Password=Password;"
 objConnection.ConnectionString = strConnectionString
 On Error Resume Next
 objConnection.Open
 OpenConn = Not (Err)
 Err.Clear
 On Error GoTo 0
End Function<hr />
Public Sub CloseConn()
 On Error Resume Next
 objConnection.Close
 Err.Clear
 On Error GoTo 0
 Set objConnection = Nothing
End Sub<hr />
Public Function ADTest() As Boolean
 If Not (OpenConn) Then
  Response.Write "Impossible de se connecter à Active Directory ...
"
  ADTest = False
  Exit Function
 End If
 strSQL = "SELECT ADsPath,samAccountName,memberOf FROM 'LDAP://.....' WHERE objectCategory='user' and samAccountName = 'toto'"
 Set objRecordSet = objConnection.Execute(strSQL)
 While Not (objRecordSet.EOF)
  Response.Write "ADsPath=" & objRecordSet("ADsPath") & "
"
  Response.Write "samAccountName=" & objRecordSet("samAccountName") & "
"
  Response.Write "memberOf=" & objRecordSet("memberOf") & "
"
  Response.Write "<HR SIZE=1 NOSHADE COLOR=""#FF0000"">
"
  objRecordSet.MoveNext
 Wend
 'On ferme proprement l'objet recordset
 objRecordSet.Close
 'On atomise l'objet recordset
 Set objRecordSet = Nothing
 CloseConn
End Function<hr />,

----

Colorisation syntaxique par Renfield

Peut-être que ça marchera ...
_______________________________________________________________________
VB.NETis good ...VB6is better
3
cs_FPatrick Messages postés 122 Date d'inscription mercredi 27 novembre 2002 Statut Membre Dernière intervention 8 août 2014 1
18 janv. 2008 à 09:30
Bonjour et merci.

J'ai encore une erreur, mais c'est autre chose.

J'avais pourtant fait :
ObjConnection.Properties("User ID")

objConnection.Properties("Password")

Ct ca ne passait pas. Je rechercherai plus tard, là j'en avais besoin de suite.

Merci.
0