use Win32;
use Win32::NetAdmin;
use Win32::AdminMisc;

print "Enter the (ip or name) of the remote PC\n";
$server = (<stdin>);
chomp($server);

$user = "Guest";

my %users;
my %detail;
Win32::NetAdmin::GetUsers($server, FILTER_NORMAL_ACCOUNT, \%users);


foreach (%users) {

	print "$_\n";
}

Win32::AdminMisc::UserGetMiscAttributes ($server, $user, \%detail);

$Hash{USER_FLAGS} = $Hash{USER_FLAGS} | UF_ACCOUNTDISABLE;



Win32::AdminMisc::UserSetMiscAttributes ($server, $user, USER_FLAGS, $Hash{USER_FLAGS} );