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

##</code><code>##

use Win32::NetAdmin;
$groupname = 'supercam';
if (GroupIsMember($server, $groupname, $user)) {
  print "user in group"; 
}  else  {
  print "user doesn't have permission...";
}