Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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 scrutinizing the Monastery: (9)
As of 2015-11-25 12:04 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (674 votes), past polls