It runs as a scheduled task with a user account which has read permissions on the servers .
The file checklastbackup.txt contains the computernames of the servers (and in our case also workstations) to be checked, one per line.
What you might have to change is the first if/else structe because there I sort out whether the computer to be checked is a server (contains S in the computer name) or a workstation.
Here is the code:
<code>
($seconds, $minutes, $hours, $day_of_month, $month, $year,
$wday, $yday, $isdst) = localtime(time);
--$day_of_month;
++$month;
$year+=1900;
$cmpdate=$month."/".$day_of_month."/".$year;
open (DATA,"checklastbackup.txt");
while (<DATA>) {
chomp;
if ($_ =~ /S/) {
$B="\\\\$_\\c\$\\winnt\\profiles\\all users\\application data\\Symantec\\Backup Exec System Recovery\\Schedule";
}else {
$B="\\\\$_\\c\$\\winnt\\profiles\\all users\\Anwendungsdaten\\Symantec\\Backup Exec System Recovery\\Schedule";
}
opendir THISDIR, "$B" or print "serious dainbramage: $! $B\n";
@allfiles1 = readdir THISDIR;
closedir THISDIR;
foreach $file1 (@allfiles1) {
next if (($file1 eq ".") || ($file1 eq "..") || (uc($file1) !~ /PQJ/ ) );
open (FILE,"$B\\$file1") or print $!;
@File=<FILE>;
close (FILE);
foreach $line (@File) {
@personal = split(/LastBackup/, $line);
$string=$personal[1];
$string =~ s/\vt="7">//;
$string =~ s/\<\///;
$string =~ s/\x20//gm;
}
}
</code>
), subject to change (Earlier? guess not. Later? please not).
