RosettaCodeData/Task/Write-to-Windows-event-log/Tcl/write-to-windows-event-log.tcl

package require twapi

# This command handles everything; use “-type error” to write an error message
twapi::eventlog_log "My Test Event" -type info