Subversion Repositories DevTools

#########################################
#                                       #
#    Authenticate against Domain        #
#                                       #
#########################################
# Name:
#   domainauth.pl
#
# Parameters:
#   1 - Domain name 
#   2 - username
#   3 - password
#
# Call:
#   domainauth.pl $1 $2 $3
#----------------------------------------
# NOTE: This will only work if the machine 
#       you are running this script on, is part of Domain.
#----------------------------------------

use Win32::AuthenticateUser;

$logstat = AuthenticateUser(@ARGV[0], @ARGV[1], @ARGV[2]);

print "login=". $logstat;

exit(0);