AnsweredAssumed Answered

Custom Operator - Event Log Create Event

Question asked by tony.harrison on Jun 22, 2012
Latest reply on Sep 13, 2012 by hendry

Like • Show 0 Likes0
Comment • 5

I am trying to use one of the customer operators from Windows Management, Event Log Create Event.

I can't remember where exactly this came from it was included in some example process package or other from CA.

Basically it takes some input parameters and runs a vbs script.

However I am getting the following error:

'eventcreate' is not recognized as an internal or external command,
operable program or batch file.

Has anyone used this custom operator?

Can you shed any light on why it is not working?

Thanks

PA 3.1 SP1

hendry Sep 13, 2012 11:21 PM

Correct Answer

In windows you require certain privileges to create an event, I cannot remember which privileges are required.

you can either play with privileges or look at the event API documentation from Microsoft.

See the reply in context

No one else had this question

Outcomes

'******************************************************************************************* ' CREATE AN EVENT ON A SPECIFIED EVENT LOG ON WINDOW OS '******************************************************************************************* ' AUTHOR: OPTINUITY, INC. ' ' This script creates an event on a specified event log on windows os ' ' USAGE: SendMessageToEventLog.vbs EventLogName EventType EventSource EventId EventDescription ' ' ExitCodes: ' 101: Oasis Environment Variable Error ' 102: Oasis Temp Folder Write Error ' 103: Error in arguments passed ' 104: Error executing eventcreate command ' 105: Creating event failed ' ' Output Variables: ' PID: Process ID of the operation ' ExitCode: ExitCode of the script. Value is "0" when successful ' ErrorMessage: Error Message when script is unsuccessful ' '******************************************************************************************* ' Force to declare all variables 'Option Explicit ' Enable Error Handling using the Err Object On Error Resume Next '******************************************************************************************* ' Constant ERROR Values Const ERR_OASISENV = 101 Const ERR_OASISTMP = 102 Const ERR_ARGUMENT = 103 Const ERR_EXECCMD = 104 Const ERR_FAILURE = 105 '******************************************************************************************* 'Get Oasis Environment Variable to create Temporary Files Dim objShell, procEnv, OASISTEMP 'Create the Shell and Process objects Set objShell = wscript.CreateObject("wscript.Shell") Set procEnv = objShell.Environment("Process") 'Get the Environment variable and check for errors OASISTEMP = procEnv("C2OSVD") If Err<>0 Then WScript.Quit(ERR_OASISENV) End If OASISTEMP = OASISTEMP & "\" '******************************************************************************************* 'Subroutine to Write Variable Back to Oasis Operation Variable Function WriteOasisVar(varName,varValue) Dim objFSO, varFile 'Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") Set varFile = objFSO.CreateTextFile( OASISTEMP & varName) 'Check for creating the file If Err<>0 Then WScript.Quit(ERR_OASISTMP) End If 'Write values that are non-empty If varValue <> "" Then varFile.Write(varValue) End If 'Check for error in writing to the file If Err<>0 Then WScript.Quit(ERR_OASISTMP) End If 'Close the file after writing varFile.Close() 'Return value success WriteOasisVar = 0 End Function '******************************************************************************************* 'Subroutine to Write Variable Back to Oasis Operation Array Function WriteOasisArray(arrName,arrIndex,arrValue) Dim objFSO, objFolder, arrFile, subRet 'Create the File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") 'Create directory only if it does not exist If objFSO.FolderExists(OASISTEMP & arrName) <> True Then Set objFolder = objFSO.CreateFolder(OASISTEMP & arrName) 'Check for error creating directory If Err<>0 Then Err.Clear subRet=WriteOasisVar(ERRORVAR,"Cannot Create Oasis Array Tempory Directory") WScript.Quit(ERR_OASISTMP) End If End If 'Create a file with index number of the array Set arrFile = objFSO.CreateTextFile(OASISTEMP & arrName & "\" & arrIndex) 'Check for error creating file If Err<>0 Then Err.Clear subRet = WriteOasisVar(ERRORVAR, "Cannot Create Index file for Oasis Array") WScript.Quit(ERR_OASISTMP) End If 'Write the value of the variable to the index file if it is non-empty If arrValue <> "" Then arrFile.Write(arrValue) End If 'Check for error writing values If Err<>0 Then Err.Clear subRet = WriteOasisVar(ERRORVAR, "Cannot Write To Oasis Array Index file") WScript.Quit(ERR_OASISTMP) End If 'Close the file arrFile.Close() 'Return value success WriteOasisArray = 0 End Function '******************************************************************************************* ' Subroutine to Check Error, Clear Err Object Values, Write Error to Global ERROR Variable and Quit The Script Function ErrorCheckExit(errVar,errMsg,errCode) Dim subRet, errDescription If Err<>0 Then errDescription = Err.Description Err.Clear subRet = WriteOasisVar(errVar, errMsg & ": " & errDescription) WScript.Quit(errCode) End If End Function '******************************************************************************************* ' Subroutine to Clear Err Object Values, Write Error to Global ERROR Variable and Quit The Script Function WriteErrorExit(errVar,errMsg,errCode) Dim subRet If Err<>0 Then Err.Clear End If subRet = WriteOasisVar(errVar, errMsg) WScript.Quit(errCode) End Function '******************************************************************************************* ' Subroutine to Check if a given string is a 0 or positive integer Function CheckPositiveInteger(inString) 'Set pattern for an integer starting with 1-9 and any numbers after that Set intPattern = new RegExp With intPattern .Pattern = "(?:^0$)|(?:^[1-9][0-9]*$)" .IgnoreCase = True .Global = False End With 'Set the return value after testing If intPattern.Test(inString) Then CheckPositiveInteger = True Else CheckPositiveInteger = False End If End Function '******************************************************************************************* ' MAIN SCRIPT '******************************************************************************************* ' Assign Constant variables used in script Const SCRIPT_ARGUMENTS_COUNT = 5 Const MAX_EVENT_ID = 1000 'Global Variables Dim eventLogName, eventType, eventSource, eventId, eventDescription Dim ERRORVAR, ret ' Assigning arguments to variables eventLogName = Trim(Wscript.Arguments.Item(0)) eventType = Trim(Wscript.Arguments.Item(1)) eventSource = Trim(Wscript.Arguments.Item(2)) eventId = Trim(Wscript.Arguments.Item(3)) eventDescription= Trim(Wscript.Arguments.Item(4)) ' Global Variables in Script - Definition ERRORVAR = "ErrorMessage" ' Check if enough parameters are available If Len(Trim(eventLogName)) = 0 OR Len(Trim(eventType)) = 0 OR _ Len(Trim(eventSource)) = 0 OR Len(Trim(eventDescription)) = 0 OR _ Len(Trim(eventId)) = 0 OR WScript.Arguments.Count < SCRIPT_ARGUMENTS_COUNT Then ret = WriteErrorExit(ERRORVAR,"Insufficient Arguments: Valid Event Log Name, Event Type, " & _ "Source, ID and Description must be specified", ERR_ARGUMENT) End If 'Check if Event ID is a positive integer If (NOT CheckPositiveInteger(eventId)) OR (CInt(eventId) > MAX_EVENT_ID) Then ret = WriteErrorExit(ERRORVAR,"Event ID should be between 1 to 1000", ERR_ARGUMENT) End If 'Create the query to check the event log Dim eventCommand eventCommand = "%COMSPEC% /c eventcreate /L """ & eventLogName & """" & " /T """ & _ eventType & """" & " /SO """ & eventSource & """" & " /ID """ & eventId & _ """" & " /D """ & eventDescription & """" 'WScript.echo eventCommand 'Create shell object to execute the command Dim wshShell, execObj, createSuccess, outLine, outLog Set wshShell = CreateObject("WScript.Shell") Set execObj = wshShell.Exec(eventCommand) 'Check for errors while executing command Do While execObj.Status = 0 WScript.Sleep 100 Loop If execObj.ExitCode <> 0 Then outLine = execObj.StdErr.ReadAll ret = WriteErrorExit(ERRORVAR, outLine, ERR_EXECCMD) End If 'Else check for successful completion of command createSuccess = False 'initialize to failure condition Do While Not execObj.StdOut.AtEndOfStream outLine = execObj.StdOut.ReadLine() If Instr(outLine, "SUCCESS") > 0 Then createSuccess = True Exit Do End If Loop 'Successful completion if create event was successful If createSuccess Then WScript.Quit(0) Else ret = WriteErrorExit(ERRORVAR, "Unkwon error creating event", ERR_FAILURE) End If '******************************************************************************************* ' END OF SCRIPT '*******************************************************************************************

Custom Operator - Event Log Create Event

Outcomes

Related Content

Recommended Content