Write to Windows event log: Difference between revisions
m (omit from Retro) |
({{omit from|PARI/GP}}) |
||
Line 27: | Line 27: | ||
twapi::eventlog_log "My Test Event" -type info</lang> |
twapi::eventlog_log "My Test Event" -type info</lang> |
||
{{omit from|PARI/GP}} |
|||
{{omit from|Retro|No access to Windows APIs}} |
{{omit from|Retro|No access to Windows APIs}} |
Revision as of 02:13, 31 October 2010
You are encouraged to solve this task according to the task description, using any language you may know.
Write script status to the Windows Event Log
PowerShell
<lang powershell># Create Event Log object $EventLog=new-object System.Diagnostics.EventLog("Application")
- Declare Event Source; must be 'registered' with Windows
$EventLog.Source="Application" # It is possible to register a new source (see Note2)
- Setup the Event Types; you don't have to use them all, but I'm including all the possibilities for reference
$infoEvent=[System.Diagnostics.EventLogEntryType]::Information $errorEvent=[System.Diagnostics.EventLogEntryType]::Error $warningEvent=[System.Diagnostics.EventLogEntryType]::Warning $successAuditEvent=[System.Diagnostics.EventLogEntryType]::SuccessAudit $failureAuditEvent=[System.Diagnostics.EventLogEntryType]::FailureAudit
- Write the event in the format "Event test",EventType,EventID
$EventLog.WriteEntry("My Test Event",$infoevent,70)</lang>
Note1: Thanks to PoSH Fan for posting information that got me started on this at Windows PowerShell Blog
Note2: See details on registering a new Event Source with Windows at MSDN
Tcl
<lang tcl>package require twapi
- This command handles everything; use “-type error” to write an error message
twapi::eventlog_log "My Test Event" -type info</lang>