This will clear local event log on a machine. No backup, just clear. We use this for machines that are ghosted and cleaned up for production.
# Ray Espinoza
# eventclear.pl
# This will clear the local eventlog to be used in the update.cmd scri
+pt for new builds.
######################################################################
+##################
#!/usr/bin/perl
use Win32::EventLog;
use strict;
my ($Event, $filename, $directory);
$directory = 'c:/temp/';
for ('System', 'Security', 'Application') {
$Event = new Win32::EventLog ("$_", "") || die "can't create o
+bject\n";
$filename = $directory . $_ . '.evt';
print " $filename exists\n" if (-e "$filename");
$Event->Clear($filename)or warn " $!";
$Event->Close();
}
Very nice.
But... I have to take off 0.2 style points, 0.1
each for two useless quotations of variables. There's
no point in saying "$_"; $_
will quite suffice.