TN AppSvr205 Application Server and Windows Event Log Scripting

Description

This article from InSource shows how to write a script to read the Windows Event Log.  This can be useful if searching for an error and wanting to generate an alarm or notification to someone to take action.

• Author: Lewis Talley
• Published: 09/01/2016
• Applies to: Application Server (Various)

Details

In the declarations section of the object type or paste the following text;

dim myLog as System.Diagnostics.EventLog;
dim entry as System.Diagnostics.EventLogEntry;

Create an attribute to trigger the script to run.

The body of the script is a follows (make sure to mark this script as asynchronous)

myLog = new System.Diagnostics.EventLog();
myLog.Source= "Application";

for each entry in myLog.Entries

logmessage (entry.Message);

    if entry.EntryType == "Error" then
        logmessage ("Error**************** " + entry.Message);
    endif;
Next;
LogMessage ("**************************************" + entry.MachineName);
Me.Readlog = False;