[Perl]Win32下发送事件日志(Win32::EventLog)

时间：2006-09-06 来源：huhuegg

#!c:/perl/perl.exe
use Win32::EventLog;
#
#$log=Win32::EventLog->new($sourcename [,$servername])
#日志名称：$sourcename : Application System Security
#服务器名称：$servername : \\server01
#$result=$log->Report(\%data);
#%data={'EventType' =>$EventType,
# 'Category' =>$Category,
# 'EventID' =>$EventID,
# 'Data'  =>$Data,
# 'String' =>$String
#}
##EventType:错误类型和严重性,如下
##EVENTLOG_INFORMATION_TYPE 信息性消息
##EVENTLOG_WARNING_TYPE  非致命错误
##EVENTLOG_ERROR_TYPE  致命错误
##EVENTLOG_AUDIT_SUCCEES 成功审计事件，通常写向Security
##EVENTLOG_AUDIT_FAILURE 失败审计事件，通常写向Security ##Category:应用程序定义数值
##EventID:应用程序定义ID数值
##Data:日志项相关原始数据
##String:可读的字符串 $log=Win32::EventLog->new('Application');
%data={'EventType' =>$EventType,
'Category' =>$Category,
'EventID' =>$EventID,
'Data'  =>$Data,
'String' =>$String
};
$log->Report(\%data);
$log->Close;

相关阅读更多 +