Authentification Active Directory / VB
Fermé
Salut,
je cherche à vérifier dans mon programme par un login et un mot de passe si l'utilisateur appartient à ma base d'utilisateur dans Active Directory.
Je ne parviens pas à trouver le mot de passe...
Comment vérifier si le mot de passe entré par l'utilisateur et le même que celui de son compte dan actrive directory ?
merci d'avance
Robert PARLSON
je cherche à vérifier dans mon programme par un login et un mot de passe si l'utilisateur appartient à ma base d'utilisateur dans Active Directory.
Je ne parviens pas à trouver le mot de passe...
Comment vérifier si le mot de passe entré par l'utilisateur et le même que celui de son compte dan actrive directory ?
merci d'avance
Robert PARLSON
A voir également:
- Authentification Active Directory / VB
- Vb - Télécharger - Langages
- Directory list & print - Télécharger - Divers Utilitaires
- Double authentification google - Guide
- Vb cable - Télécharger - Audio & Musique
- Le message n'a pas été envoyé car le service n'est pas activé sur le réseau - Forum Xiaomi
2 réponses
Commentaire inutile, le code est bugué, certaines variables ne sont pas déclarées, on ne connait pas le nom des objets coté fenêtre, donc on ne sait pas à quoi correspond quoi, bref de la grosse merde.
salut voila le code pour verifier que le code entre par l'utisateur est celui qui est dans la basse de donnée
Public Class utilisateur
Dim trouve As Boolean
'procédure qui verifie l'existance du champs
Sub cherchermotsdepasseetutilisateur()
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from Utilisateur where Login = '" & TextBox1.Text & "' and Password ='" & TextBox2.Text & "'"
dr1 = cmd.ExecuteReader
If dr1.Read Then
trouve = True
Else
trouve = False
End If
con.Close()
End Sub
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
cherchermotsdepasseetutilisateur()
If trouve = False Then
Label3.Text = "Erreur Veuillez verifier votre Login et votre Mot de passe ou le ce utilisateur n'existe pas"
Else
Me.Hide()
Form1.Show()
End If
Public Class utilisateur
Dim trouve As Boolean
'procédure qui verifie l'existance du champs
Sub cherchermotsdepasseetutilisateur()
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from Utilisateur where Login = '" & TextBox1.Text & "' and Password ='" & TextBox2.Text & "'"
dr1 = cmd.ExecuteReader
If dr1.Read Then
trouve = True
Else
trouve = False
End If
con.Close()
End Sub
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
cherchermotsdepasseetutilisateur()
If trouve = False Then
Label3.Text = "Erreur Veuillez verifier votre Login et votre Mot de passe ou le ce utilisateur n'existe pas"
Else
Me.Hide()
Form1.Show()
End If