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
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
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é 9923 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-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3