use Win32::AdminMisc;

$username = "Administrator";
$password = "jhDfBg3x";

open(SERVERS, "<servers.txt") or die $!;
@servers = grep(/\S/, map {s/\s//g; $_} <SERVERS>);
close(SERVERS);

foreach $server (@servers) {
   $result = 0;
   $result = Win32::AdminMisc::SetPassword("\\\\$server",$username,$password);
   print "$server: $result\n";
}