debug = -1
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oReg = GetObject("winmgmts://localhost/root/default:StdRegProv")
If (not(oReg is nothing)) Then
RC_Code = oReg.GetStringValue(HKEY_LOCAL_MACHINE, DEBUG_INFO_KEY, DEBUG_LEVEL_NAME, debug)
End If
If (WScript.Arguments.Count < 3) Then
WScript.Quit -1
End If
EventID = WScript.Arguments.Item(0)
Message = WScript.Arguments.Item(1)
EventType = WScript.Arguments.Item(2)
Set WshShell = WScript.CreateObject("WScript.Shell")
strCommand = "eventcreate.exe /T """& EventType &""" /ID """& EventID &""" /L APPLICATION /SO ""FlexSystem OOB Events"" /D """ & Message & """"
WshShell.exec strcommand
Sub LogDebugString(debugString, debugLevel)
If (Int(debug) >= Int(debugLevel)) Then
Call oAPI.LogScriptEvent("IBMCreateEvents.vbs", 301, debugLevel, debugString)
End If
End Sub </Script></ScriptBody>
<TimeoutSeconds>300</TimeoutSeconds>
</WriteAction>
</MemberModules>
<Composition>
<Node ID="WA"/>
</Composition>
</Composite>
</ModuleImplementation>
<OutputType>System!System.CommandOutput</OutputType>
<InputType>System!System.BaseData</InputType>
</WriteActionModuleType>