Win32::AdminMisc::UserGetAttributes($server, $user_id, $full_name, $ck_passwd, $passwordage, $privilege, $homedir, $comment, $flags, $scriptpath); %user_rec = ('name' => $user_id, 'password' => $ck_passwd, ); &Verify($server,$user_rec{'name'},$user_rec{'password'});