Write to Windows event log: Difference between revisions
Content added Content deleted
({{omit from|PARI/GP}}) |
(Added PureBasic) |
||
Line 1: | Line 1: | ||
{{task}} |
{{task}} |
||
Write script status to the Windows Event Log |
Write script status to the Windows Event Log |
||
=={{header|PureBasic}}== |
|||
<lang PureBasic>Procedure WriteToLog(Event_App$,EventMessage$,EvenetType,Computer$) |
|||
Protected wNumStrings.w, lpString=@EventMessage$, lReturnX, CMessageTyp, lparray |
|||
Protected lprawdata=@EventMessage$, rawdata=Len(EventMessage$), Result |
|||
Protected lLogAPIRetVal.l = RegisterEventSource_(Computer$, Event_App$) |
|||
If lLogAPIRetVal |
|||
lReturnX = ReportEvent_(lLogAPIRetVal,EvenetType,0,CMessageTyp,0,wNumStrings,rawdata,lparray,lprawdata |
|||
DeregisterEventSource_(lLogAPIRetVal) |
|||
Result=#True |
|||
EndIf |
|||
ProcedureReturn Result |
|||
EndProcedure</lang> |
|||
=={{header|PowerShell}}== |
=={{header|PowerShell}}== |