# 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";

##</code><code>##

"SetUserAttributes" is not exported by the Win32::NetAdmin module at C:\
perl\ChPass.pl line 9
Can't continue after import errors at C:\scripts\perl\ChPass.pl line 9
BEGIN failed--compilation aborted at C:\scripts\perl\ChPass.pl line 9.