Help for this page

Select Code to Download

Select or download this

#!D:/Perl/bin/perl.exe 
use Win32::AuthenticateUser;
@result = AuthenticateUser("domain", "smith", "abc123");
print @result;

Select or download this

#!D:/Perl/bin/perl.exe -w
use strict; #always.
...
my $result = Win32::AuthenticateUser::AuthenticateUser(
             "domain", "smith", "abc123");
print $result ? 'Authentic User' : 'Unknown User or Password';