Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://15057]
[choroba]: I can't say "Good morning", getting the "Whoa cowboy"
[marto]: the same thing just happened to me :P
Discipulus our orders office is a crow of idiots...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2017-01-19 10:05 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (170 votes). Check out past polls.