wiedermal batchjob

[_m3]

#!/usr/bin/perl
use strict;

open(IN, "ipliste.txt") or die "Lesefehler $!"
while(<IN>) {
    chomp;
    # Das nachfolgende könnte man auch mit dem Perl-Eigenen "copy" machen
    my $cmd = "COPY C:\PATCH\PATCH.BAT \\$_\C$\WINNT\TEMP";
    system($cmd);
    $cmd="PSEXEC \\$_ -u admin -p meinkennwort c:\WINNT\TEMP\PATCH.BAT"
    # Das nachfolgende könnte man auch mit dem Perl-Eigenen "remove" machen
    $cmd = "DEL \\$_\C$\WINNT\TEMP\PATCH.BAT"
    system($cmd);
}
close(IN);

# Die Fehlerbehandlung mit Rückgabewert des System-Calls wird dem werten Leser als Übungsaufgabe überlassen. ;)