{"id":1538,"date":"2013-02-13T17:32:09","date_gmt":"2013-02-13T22:32:09","guid":{"rendered":"http:\/\/anvil-of-time.com\/wordpress\/?p=1538"},"modified":"2021-03-11T12:55:51","modified_gmt":"2021-03-11T17:55:51","slug":"powerbuilder-writing-to-the-windows-event-log","status":"publish","type":"post","link":"https:\/\/anvil-of-time.com\/powerbuilder\/powerbuilder-writing-to-the-windows-event-log\/","title":{"rendered":"PowerBuilder – Writing to the Windows Event Log"},"content":{"rendered":"

Here are \u00a0two ways to write to the Event log in Windows and indicate the source of the message.<\/p>\n

Reportevent<\/strong> External Function and Eventcreate<\/strong> command line command<\/p>\n

You can use the command shell to do this too but\u00a0this has the drawback of not being able to assign the source of the event.<\/p>\n

First you need the following External Functions:<\/p>\n

Function ulong RegisterEventSource ( &\n\tulong lpUNCServerName, &\n\tstring lpSourceName &\n\t) Library "advapi32.dll" Alias For "RegisterEventSourceW"\n\nFunction boolean ReportEvent ( &\n\tulong hEventLog, &\n\tuint wType, &\n\tuint wCategory, &\n\tulong dwEventID, &\n\tulong lpUserSid, &\n\tuint wNumStrings, &\n\tulong dwDataSize, &\n\tstring lpStrings[], &\n\tulong lpRawData &\n\t) Library "advapi32.dll" Alias For "ReportEventW"\n\nFunction boolean DeregisterEventSource ( &\n\tref ulong hEventLog &\n\t) Library "advapi32.dll"<\/pre>\n
Then in PowerScript<\/p>\n
integer li_messagelevel\nstring ls_errmsg[]\nstring ls_messagesource\nulong lul_eventsource\n\/\/ the event message is here\nls_errmsg[1] = "Event Log Entry " + String(now(), 'hh:mm:ss') \n\/\/ setting the source of the message\nls_messagesource = this.classname()\n\nlul_eventsource = RegisterEventSource(0, ls_messagesource)\nIF IsNull(ls_eventsource) THEN ls_eventsource = -1\n\/\/ set the level of the message\nli_messagelevel = 4 \/\/ Information,  also 1 = Error, 2 = Warning\n\nIF lul_eventsource > 0 THEN\n\t\/\/ write to the log\n\tReportEvent(lul_eventsource, li_messagelevel, 0, 0, 0, &\n        UpperBound(ls_errmsg), 0, ls_errmsg, 0)\n\tDeregisterEventSource(lul_eventsource)\nEND IF<\/pre>\n
Viewing the Log<\/p>\n
\"pbeventlog\"<\/a><\/p>\n
Per the MSDN documentation, if the source name cannot be found the event logging service uses the Application log. Although events will be reported , the events will not include descriptions because there are no message and category message files for looking up descriptions related to the event identifiers.<\/p>\n
Thanks to Roland Smith for most of the code for this functionality.<\/p>\n
You are also able to use the ‘EVENTCREATE’ command line command<\/strong>.<\/p>\n
From the Microsoft Technet page (found Here<\/a>):<\/p>\n
Enables an administrator to create a custom event in a specified event log.\nSyntax\neventcreate [\/s Computer [\/u Domain\\User [\/p Password]] {[\/l {APPLICATION|SYSTEM}]|[\/so SrcName]} \/t {ERROR|WARNING|INFORMATION|SUCCESSAUDIT|FAILUREAUDIT} \/id EventID \/d Description\nTop of page \nParameters\n\/s   Computer   : Specifies the name or IP address of a remote computer (do not use backslashes). The default is the local computer.\n\/u   Domain \\ User   : Runs the command with the account permissions of the user specified by User or Domain\\User. The default is the permissions of the current logged on user on the computer issuing the command.\n\/p   Password   : Specifies the password of the user account that is specified in the \/u parameter.\n\/l { APPLICATION | SYSTEM } : Specifies the name of the event log where the event will be created. The valid log names are APPLICATION and SYSTEM.\n\/so   SrcName   : Specifies the source to use for the event. A valid source can be any string and should represent the application or component that is generating the event.\n\/t { ERROR | WARNING | INFORMATION | SUCCESSAUDIT | FAILUREAUDIT } : Specifies the type of event to create. The valid types are ERROR, WARNING, INFORMATION, SUCCESSAUDIT, and FAILUREAUDIT.\n\/id   EventID   : Specifies the event ID for the event. A valid ID is any number from 1 to 65535.\n\/d   Description   : Specifies the description to use for the newly created event.\n\/? : Displays help at the command prompt.<\/pre>\n
In PowerScript:<\/p>\n
\/\/ command line event log\ninteger li_rtn\nstring ls_msg, ls_eventmsg\nls_msg = 'Command Line Message'\n\n ls_EventMsg = 'EVENTCREATE \/T ERROR \/ID 100 \/SO "My Application" \/l APPLICATION \/D "' +ls_msg + '" '\n li_Rtn = Run (ls_EventMsg,  Minimized!)\n\n IF li_Rtn <> 1 THEN\n\tmessagebox('event log', 'error loging msg')\n END IF<\/pre>\n
And the message in the Event Log viewer<\/p>\n
\"eventcreatemessage\"<\/a><\/p>\n
To use this the user must be an administrator on the machine or you have to provide the id\/password combination of one.<\/p>\n
Thanks to Kyle Griffis for this tip.<\/p>\n","protected":false},"excerpt":{"rendered":"
Here are \u00a0two ways to write to the Event log in Windows and indicate the source of the message. Reportevent External Function and Eventcreate command line command You can use the command shell to do this too but\u00a0this has the drawback of not being able to assign the source of the event. First you need…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,10],"tags":[70,12,16,69,42,68],"_links":{"self":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/1538"}],"collection":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/comments?post=1538"}],"version-history":[{"count":15,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/1538\/revisions"}],"predecessor-version":[{"id":2065,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/1538\/revisions\/2065"}],"wp:attachment":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/media?parent=1538"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/categories?post=1538"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/tags?post=1538"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}