begin process at 2012 02 11 12:59:34
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

ASP / ASP3

 > 

Système

 > 

Sécurité

 > 

Recherches les informations d'un utilisateur

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Recherches les informations d'un utilisateur

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ée 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...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Single Large Rock Formation in Monument Valley
Photo Monument Valley Utah known as The Mittens 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,374 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)