use Win32;
use Win32::AdminMisc;


my (undef, $Domain, $User) = ( $ARGV[0] =~ /((.*?)\\)?(.*?)$/ );
my $Password  = $ARGV[1];
if( '*' eq $Password){
	print "Enter Password:";
	$Password = <STDIN>;
	chop $Password;
}

my $Process = $ARGV[2];

("" eq $Domain) ? $User: "$Domain\\$User";	


print "User($User) Domain($Domain) Password($Password) Process($Process)\n";
#exit 0;

if(Win32::AdminMisc::LogonAsUser($Domain,$User,$Password,LOGON32_LOGON_INTERACTIVE)){
	my $LogonUser = Win32::AdminMisc::GetLogonName();
	print "Sucessfully logged on as $LogonUser .\n";
	print "\nLaunching $Process...\n";
	
  my $Pid = Win32::AdminMisc::CreateProcessAsUser(
                                   $Process,
                                   "Flags", CREATE_NEW_CONSOLE,
                                   "XSize", 640,
                                   "YSize", 400,
                                   "X", 200,
                                   "Y", 175,
                                   "XBuffer", 80,
                                   "YBuffer", 175,
                                   "Title", "Title: $User" . "'s $Process program",
                                   "Fill", BACKGROUND_BLUE |
                                           FOREGROUND_RED |
                                           FOREGROUND_BLUE |
                                           FOREGROUND_INTENSITY |
                                           FOREGROUND_GREEN,
                                    );

	if($Pid){
		print "Successfull! The new process PID is $Pid.\n";
	}	
	else{
		print "Failed.\n\tError: ", Error(), "\n";
	}		
}	
else{
	my $err=Win32::FormatMessage( Win32::AdminMisc::GetError());
	print "HERE $err\n";
}	

sub Error{
	return Win32::FormatMessage( Win32::AdminMisc::GetError());
}	

exit 0;