if (Win32::AdminMisc::UserCheckPassword($server, $user, $guess)) {
   print "$guess is correct password for $user";
} else {
   print "Bad Username or Password";
}