Win32::AdminMisc::LogonAsUser( $Domain, $User, $Password);
$UserName=Win32::AdminMisc::GetLoginName();
print "Failed to logon" if ( lc $User ne lc $UserName);