Anonymous user
Write to Windows event log: Difference between revisions
→{{header|Tcl}}
Simple9371 (talk | contribs) m (Mi) |
|||
Line 390:
# This command handles everything; use “-type error” to write an error message
twapi::eventlog_log "My Test Event" -type info</lang>
=={{header|VBScript}}==
<lang vb>
Sub write_event(event_type,msg)
Set objShell = CreateObject("WScript.Shell")
Select Case event_type
Case "SUCCESS"
n = 0
Case "ERROR"
n = 1
Case "WARNING"
n = 2
Case "INFORMATION"
n = 4
Case "AUDIT_SUCCESS"
n = 8
Case "AUDIT_FAILURE"
n = 16
End Select
objShell.LogEvent n, msg
Set objShell = Nothing
End Sub
Call write_event("INFORMATION","This is a test information.")
</lang>
=={{header|zkl}}==
| |||