ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment authentifier un utilisateur sur Windows XP (Domaine, utilisateur et mot de passe   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
14,5/20
2 votes


Contributions > 05 - API et appels systèmes

Comment authentifier un utilisateur sur Windows XP (Domaine, utilisateur et mot de passe
# 0000000378
ajouté le 25/11/2006 15:08:21 et modifié le 25/11/2006
consulté 6696 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description
Voici comment authentifier un utilisateur sur Windows XP en vérifiant le mot de passe, domaine et le nom de l'utilisateur de Windows. L'authenfication pour Windows 2000 est différente et n'utilise pas cette technique.


Code source :
&& Créer un formulaire avex trois textbox. (Nom de l'utilisateur, domaine et mot de passe)
&& Dans l'init du formulaire utilisez ceci.
This.text1.Value = GETENV("username")
This.text2.Value = GETENV("USERDOMAIN")

&& Laissez au soin de l'utilisateur de entrer son mot de passe.
&& Dans le click du bouton OK, utilisez ceci:
#define LOGON32_LOGON_INTERACTIVE   2
#define LOGON32_LOGON_NETWORK       3
#define LOGON32_LOGON_BATCH         4
#define LOGON32_LOGON_SERVICE       5

#define LOGON32_PROVIDER_DEFAULT    0

lnFlags = LOGON32_LOGON_INTERACTIVE

DECLARE INTEGER LogonUser in WIN32API ;
       String lcUser,;
       String lcServer,;
       String lcPassword,;
       INTEGER dwLogonType,;
       Integer dwProvider,;
       Integer @dwToken

lnToken = 0
lcDomaine = ALLTRIM(Thisform.text2.value)
lcUsername = ALLTRIM(Thisform.Text1.value)
lcPassword = ALLTRIM(ThisForm.text3.Value)


lnResult = LogonUser(lcUsername,lcDomaine,lcPassword,;
                     lnFlags,LOGON32_PROVIDER_DEFAULT,@lnToken)

DECLARE INTEGER CloseHandle IN WIN32API INTEGER
CloseHandle(lnToken)
MESSAGEBOX(IIF(lnResult=1,"OK","Echec"))

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3