Bonjour,
Joyeuses fêtes de fin d'année à tous ceux qui sont encore au boulot
Petite question pour cette fin d'année:
Je dois pouvoir vérifier grace à un formulaire, un identifiant et un mot de passe qu'un utilisateur est bien déclaré dans l'AD du réseaux.
Mais je dois aussi, en cas d'échecs successifs (comme pour une ouverture de session) bloquer le compte utilisateur
Si quelqu'un avait une idée ou un bout de code pour me permettre d'avancer se serait super pour finir l'année
Pour le moment, j'ai trouvé quelques pistes avec la fonction :
Mais cela ne me permet pas de bloquer le compte en cas d'échecs successifs
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Declare Function LogonUser Lib "advapi32.dll" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As E_LogonType, ByVal dwLogonProvider As E_LogonProvider, ByRef phToken As Long) As Long Public Function Logon(username As String, Password As String, domain As String) As Long Dim tok As Long, r As Boolean r = LogonUser(username, domain, Password, LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, tok) If r Then Logon = tok Else Logon = False End If End Function
Merci d'avance
Partager