Recherches les informations d'un utilisateur [Résolu]

Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Dernière intervention
8 août 2014
- - Dernière réponse : cs_FPatrick
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
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.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Dernière intervention
30 juin 2013
21
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 118 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_ghuysmans99
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Dernière intervention
8 août 2014
0
Merci
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.
Commenter la réponse de cs_FPatrick

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.