# Kod tworzy zdarzenie w dzienniku Aplikacja

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strServer = '\\\\<NazwaSerwera>'; # np. fs01 
$strDescr = '<OpisZdarzenia>'; # np. Ponowne uruchomienie serwera po zainstalowaniu dodatku Service Pack
# ------ KONIEC KONFIGURACJI ---------
use constant EVENT_SUCCESS => 0;
use constant EVENT_ERROR => 1;
use constant EVENT_WARNING => 3;
use constant EVENT_INFO => 4;

$objWSHShell = Win32::OLE->new('Wscript.Shell');
$boolRC = $objWSHShell->LogEvent(EVENT_INFO, $strDescr, $strServer);

if ($boolRC == 1) {
    print "Operacja tworzenia zdarzenia zostaa zakoczona powodzeniem.\n";
}
else {
    print "Utworzenie zdarzenia nie powiodo si.\n";
}
