Select Code to Download

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

use Win32::NetAdmin;
$groupname = 'supercam';
...
}  else  {
  print "user doesn't have permission...";
}