Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

NT Event log clearing

by flyfishin (Monk)
on May 26, 2000 at 22:14 UTC ( #15057=sourcecode: print w/ replies, xml ) Need Help??

Category: NT Admin
Author/Contact Info flyfishin
Description: This simple little script clears and saves the event logs for whatever servers you place in @servers. It then copies them all to a central location for easy reference.
#! c:\perl\bin

use Win32::EventLog;
use File::Copy;
use Time::localtime;
open(OUTFH,"+>>\\\\server03\\backup_logs\\buerrs.log");
@servers = ("server01","server02","server03","server04","server05","se
+rver06");
@logs = ("System","Application","Security");
#($sec,$min,$hour,$mday,$mon,$year) = localtime();
$year = localtime->year() + 1900;
$month = localtime->mon()+1;
$day = localtime->mday();
$hour = localtime->hour();
$min = localtime->min();
$sec = localtime->sec();
$date = join("_",$year,$month,$day,$hour,$min,$sec);

for ( $i = 0; $i <= $#servers ; $i++ )
{
    foreach $eventlog (@logs)
    {    

        $filename = $eventlog. "_" . $servers[$i] . "_" . $date;
        $handle = Win32::EventLog->new("$eventlog","\\\\$servers[$i]")
+ or
            die "Can't open $eventlog Eventlog on $servers[$i]:$!\n";

# The directory backup_logs was created on each server.

        $handle->Clear("c:\\backup_logs\\$filename.evt") or
            print OFH "Could not clear and backup the $eventlog Eventl
+og on $servers[$i]\n";
        $handle->Close;
        move("\\\\$servers[$i]\\backup_logs\\$filename.evt","\\\\serve
+r03\\backup_logs\\$eventlog\\$filename.evt")
            or warn "Could not move $filename to server03:$!\n";
    }
}
close OUTFH;

Comment on NT Event log clearing
Download Code

Back to Code Catacombs

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://15057]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2014-12-23 00:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (133 votes), past polls