Recherches les informations d'un utilisateur
Résolu
cs_FPatrick
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
8 août 2014
-
17 janv. 2008 à 19:25
cs_FPatrick Messages postés 122 Date d'inscription mercredi 27 novembre 2002 Statut Membre Dernière intervention 8 août 2014 - 18 janv. 2008 à 09:30
cs_FPatrick Messages postés 122 Date d'inscription mercredi 27 novembre 2002 Statut Membre Dernière intervention 8 août 2014 - 18 janv. 2008 à 09:30
A voir également:
- Recherches les informations d'un utilisateur
- Créer un utilisateur mysql - Conseils pratiques -PHP
- Échec de l'ouverture de session de l'utilisateur - Forum SQL
- Problème de connexion à SQL Server 2008!!!!!!!!!!!!! - Forum SQL
- Vscode rechercher dans tous les fichiers ✓ - Forum Visual Basic 6
- Rechercher des fichiers commençant par le même nom ✓ - Forum VB.NET
2 réponses
cs_ghuysmans99
Messages postés
3982
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
16
17 janv. 2008 à 21:32
17 janv. 2008 à 21:32
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
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
cs_FPatrick
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
8 août 2014
1
18 janv. 2008 à 09:30
18 janv. 2008 à 09:30
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.
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.