Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
#########################################
2 
#                                       #
3 
#    Authenticate against Domain        #
4 
#                                       #
5 
#########################################
6 
# Name:
7 
#   domainauth.pl
8 
#
9 
# Parameters:
10 
#   1 - Domain name
11 
#   2 - username
12 
#   3 - password
13 
#
14 
# Call:
15 
#   domainauth.pl $1 $2 $3
16 
#----------------------------------------
17 
# NOTE: This will only work if the machine
18 
#       you are running this script on, is part of Domain.
19 
#----------------------------------------
20 
 
21 
use Win32::AuthenticateUser;
22 
 
23 
$logstat = AuthenticateUser(@ARGV[0], @ARGV[1], @ARGV[2]);
24 
 
25 
print "login=". $logstat;
26 
 
27 
exit(0);