Select Code to Download

if ($os_type eq "NT") {
  require Win32::EventLog;
...
                    });

}

Bareword "EVENTLOG_WARNING_TYPE" not allowed while "strict subs" in us
+e at scriptname line 2007.
Bareword "EVENTLOG_INFORMATION_TYPE" not allowed while "strict subs" i
+n use at scriptname line 2010.