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

cs_FPatrick 122 Messages postés mercredi 27 novembre 2002Date d'inscription 8 août 2014 Dernière intervention - 17 janv. 2008 à 19:25 - Dernière réponse : cs_FPatrick 122 Messages postés mercredi 27 novembre 2002Date d'inscription 8 août 2014 Dernière intervention
- 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
cs_ghuysmans99 3983 Messages postés jeudi 14 juillet 2005Date d'inscription 30 juin 2013 Dernière intervention - 17 janv. 2008 à 21:32
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

Merci cs_ghuysmans99 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 69 internautes ce mois-ci

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