PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 2024 → autentification windows
autentification windows
Started by bado adil, Mar., 29 2006 7:32 PM - 2 replies
#1
Posted on March, 29 2006 - 7:32 PM
je travaille sur une application qui demande une autentification .nom et mot de passe
cette autentification doit interoger si l'utilisateur se trouve dans la base de sécurité windows
(active directory de windows server 2003) comment relier windev avec la base de sécurité
windows
#2
Posted on March, 29 2006 - 7:59 PM
Bonjour
le sujet à déjà été traité. Cherche LDAP
"bado adil" <adilbado@hotmail.com> a écrit dans le message de news:
442aa516$1@news.pcsoft.fr...


je travaille sur une application qui demande une autentification .nom et
mot de passe
cette autentification doit interoger si l'utilisateur se trouve dans la
base de sécurité windows
(active directory de windows server 2003) comment relier windev avec la
base de sécurité
windows
#3
Posted on April, 14 2006 - 1:03 PM
Code utilisé avec la fenêtre Login de Windev (adaptable facilement en fonction)
Code du bouton BTN_OK

Je l'utilise dans un domaine 2003 aussi bien sur des PC windows XP que sous des sessions Citrix tournant sur windows 2003 SP1.



// Déclaration variable 1
lStatus is int
TokenHandle is int
// Déclaration variable 2
lpszLocalName est une chaîne ASCIIZ sur 255
lpszDomainName est une chaîne ASCIIZ sur 255
lpszPassword est une chaîne ASCIIZ sur 255

// init variable
lpszLocalName = Minuscule(SAIS_PSEUDO) // Login de l'utilisateur
lpszDomainName = "MonDomain" // Nom du Domain
lpszPassword = SAIS_MDP // Mot de passe

// lancement de l'API qui va interroger windows
lStatus = API("advapi32","LogonUserA",&lpszLocalName, &lpszDomainName, &lpszPassword, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, &TokenHandle)

IF lStatus THEN
// Login Correct
lStatus = API("kernel32","CloseHandle",TokenHandle)
//info("Login Successful")
Fen_Login..ValeurRenvoyée=Vrai
Ferme()
ELSE
// Login incorect
Info("Login incorrect")
RepriseSaisie(SAIS_MDP)
END
→ Go back to WINDEV 2024