HOW TO VERIFY WINNT PASSWORD THRU PROGRESS

[muthu]

Hello Everybody,



The code below is what I tried. The result is a
failure. what is wrong in my code? Is there any other
simple way?

ON ANY-PRINTABLE OF passwd IN FRAME DEFAULT-FRAME /*
password */
DO:
Passwd = SUBSTRING(Passwd, 1,
LENGTH(SELF:SCREEN-VALUE)) +
KEYFUNCTION(LASTKEY).
SELF:SCREEN-VALUE = FILL("*",LENGTH(Passwd)).
SELF:CURSOR-OFFSET = LENGTH(Passwd) + 1 NO-ERROR.
RETURN NO-APPLY.


END.

ON LEAVE OF passwd IN FRAME DEFAULT-FRAME /* password
*/
DO:

define var outval as char format "x(50)".
define var inifile as char init
"c:\winnt\win.ini".
load inifile.
use inifile.
get-key-value section "winlogon" key
"cacheprimarydomain" value outval.
unload inifile.

if outval = ?
then message "Error" outval view-as alert-box
error buttons ok.
else message outval view-as alert-box info
buttons ok.


RUN logonuser{&A} in winapi (input username, /*
USERNAME */
input outval, /*
DOMAIN */
input passwd ,
input
LOGON32_LOGON_INTERACTIVE, /* LOGON TYPE */
input
LOGON32_PROVIDER_DEFAULT, /* LOGON PROVIDER */
output outhand, /*
POINTER TO A HANDLE */
output returnvalue).
END.

TIA

Muthu