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 :
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
Mais cela ne me permet pas de bloquer le compte en cas d'échecs successifs

Merci d'avance