# Ray Espinoza
# ChPass.pl
# TO change local admin pass on remote machine
####################################################

#!D:\perl\bin -w

use strict;
use Win32::NetAdmin qw(SetUserAttributes);
chomp(my $server = <STDIN>);
my $userAcct = "Administrator";
my $Pass = "387SetHike";
UserSetAttributes($server, $userAcct, $Pass) ||
    die "UserSetAttributes() failed: $^E";