Recherches les informations d'un utilisateur

[Résolu]
Signaler
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
8 août 2014
-
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
8 août 2014
-
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

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
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
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
8 août 2014
1
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.