Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

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;
@servers = ("server01","server02","server03","server04","server05","se
@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";
            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?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2014-09-21 10:37 GMT
Find Nodes?
    Voting Booth?

    How do you remember the number of days in each month?

    Results (168 votes), past polls