PC Administrator/spravce.iso/WinWash/update.pl

Perl Script | 2000-09-12 | 549 b | 24 lines

#!/usr/bin/perl

# change these two variables to fit your network

# computers running WinWasher
@comps   = ('comp01', 'comp02', 'comp03');
# name of share and path of windows
$share   = "\\C\$\\winnt\\";

# update all computers
foreach $c (@comps) {
  update_service($c);
}

# update one computer
sub update_service {
  my $comp = shift(@_);
  print  "Updating $comp...";
  system "netsvc WinWasher $comp /stop";
  system "copy   WinWasher.exe   $comp$share";
  system "netsvc WinWasher $comp /start";
  print  "done\n";
}