AccueilCodesTutorielsForumsEmploiLivresConnexion

  • ASP / ASP.NET CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 09:00:44
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Recherches les informations d'un utilisateur [ Système / Sécurité ] (FPatrick)

jeudi 17 janvier 2008 à 19:25:18 | Recherches les informations d'un utilisateur

FPatrick

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.
jeudi 17 janvier 2008 à 21:32:06 | Re : Recherches les informations d'un utilisateur

ghuysmans99

Membre Club
Réponse acceptée !
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

Public Sub CloseConn()
 On Error Resume Next
 objConnection.Close
 Err.Clear
 On Error GoTo 0
 Set objConnection = Nothing
End Sub

Public Function ADTest() As Boolean
 If Not (OpenConn) Then
  Response.Write "Impossible de se connecter à Active Directory ...<BR>"
  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") & "<BR>"
  Response.Write "samAccountName=" & objRecordSet("samAccountName") & "<BR>"
  Response.Write "memberOf=" & objRecordSet("memberOf") & "<BR>"
  Response.Write "<HR SIZE=1 NOSHADE COLOR=""#FF0000""><BR>"
  objRecordSet.MoveNext
 Wend
 'On ferme proprement l'objet recordset
 objRecordSet.Close
 'On atomise l'objet recordset
 Set objRecordSet = Nothing
 CloseConn
End Function
Colorisation syntaxique par Renfield
Peut-être que ça marchera ...
_______________________________________________________________________
VB.NETis good ...VB6is better
vendredi 18 janvier 2008 à 09:30:07 | Re : Recherches les informations d'un utilisateur

FPatrick

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.


Cette discussion est classé dans : set, server, utilisateur, informations, objconnection

Répondre à ce message

Sujets en rapport avec ce message

ASP et Excel [ par ExcelAsp ] Bonjour à tous;Je serai très reconnaissant à celle ou celui qui peut me dire où puis-je trouver des informations sur le propriétés et les methodes des Pb DSN Sql Server 7 sous 98 [ par Opo ] BonjourPour me connecter à mes bases de données SQL Server 7 installées en local sur mon poste 98, j'utilise des DSN (paramétrés ds le panneau de conf Supprimer un fichier [ par damdam2782 ] Bonjour j'ai besoin de savoir comment supprimer un fichier, en fait j'ai déjà fait plusieurs tentatives, mais aucune ne fonctionne, le fichier ne s'ef informations sur un utilisateur dans l'active directory de Win2000 [ par stefdef ] Comment fait-on pour récupérer par exemple l'email d'un utilisateur précis dans l'active directory???(je suis débutant en asp, alors merci d'etre clai Charger des informations par un choix dans une combobox [ par PititeLolo ] Bonjour !!Voila 3 jours que je suis sur un problème tout simple : je voudrais que lorsque l'utilisateur sélectionne une option dans une combobox, les Limiter une recherche dans Index Server [ par crack_xp ] bonjour, je fait une recherche sur dans toutes les pages asp qui se trouvent dans un repertoir et je voudrais afficher les resultats de la recherhce, ADODB.Command error '800a0bb9' [ par kikinouGIP ] Bonjour tlmd'une page asp j'appelle une proc stockée sql serveret j'ai une erreur de type ADODB.Command error '800a0bb9' .*******Voici mon code :**** Erreur sur une requête paramétrée [ par guillem69 ] Bonjour, A l'execution de ma requête, je tombe sur le message d'erreur :"Microsoft OLE DB Provider for ODBC Drivers error '80040e21' [Microsoft][ODBC Problème ASP + SQL server [ par kingstyle ] Mon problème est que je veux ecrire ici un nom dans ma table ACTEUR avec le champ nom_acteur. j ai utilisé la syntaxe proposé par le site, je voudrais Update [ par malhivertman1 ] qq peut-il me dire pourquoi mon update ne march pa?idlog = Session("idlog") ' connexion Set Conn = server.CreateObject ("ADODB.connection")Conn.Open "


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,156 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.