{eventDescription} full formatted message for alarm triggering event<\/p>\n
{entityName} name of the entity name where the alarm is triggered<\/p>\n
{alarmName} name of the alarm that is triggered<\/p>\n
{triggeringSummary} summary info of the alarm with triggering values<\/p>\n
{declaringSummary} summary info of the alarm declaration<\/p>\n
{oldStatus} alarm status before it is triggered<\/p>\n
{newStatus} alarm status after it is triggered<\/p>\n
{entityObject} inventory object as triggering alarm<\/p><\/blockquote>\n
Unfortunately, {entityName} and {entityObject} don’t seem to work right now, but you can parse the {eventDescription} to get the object’s name.<\/p>\n
So with a little help from a .NET guy here at work, I was off, on my first VB.NET application. To be honest, it looks more like .vbs to me, but put it in VB.NET, and I guess it is VB.NET.<\/p>\n
First, well need to compile the application. You can find a copy of it here<\/a>. You’ll need WinZip, or some other zip application to unzip it.<\/p>\n I’ve included the .exe in the zip, but feel free to delete it and recompile it. (I don’t always trust everyone else’s code).<\/p>\n Here’s the basic contents of the VB application, a file called MakeEventCall.vb, and it includes the following code:<\/p>\n Imports System.Diagnostics<\/p>\n Module MakeEventCall<\/p>\n ‘****************************************************** Sub Main()<\/p>\n ‘Variables for doing our work ‘Variables for our potential input parameters ‘Don’t do anything, unless we get at least one argument ‘Blank our Output Message ‘Loop through all our arguments, and process them For argCount = 0 To UBound(args)<\/p>\n Select Case Left(args(argCount), 2) Dim objEventLog As New EventLog<\/p>\n Try objEventLog.Source = strApplicationName<\/p>\n ‘This could be modified to include other information from above ‘Include the appropriate warning level. If the -ns:{newstatus} Catch Ex As Exception<\/p>\n End Try<\/p>\n End If<\/p>\n End Sub<\/p>\n End Module<\/p><\/blockquote>\n Once you have compiled the app, drop it off somewhere on your VirtualCenter server that is in the path. This will make it easier to run it, and will help with an issue with the “Run A Script” alert function in VC 2.0.x.<\/p>\n
‘* MomApp.exe – 12\/12\/06
‘* Jase McCarty
‘* My first VB.NET application for the purpose of
‘* sending VMware VirtualCenter alerts to the
‘* Application Event Log of a VirtualCenter system
‘* that has a Microsoft Operations Manager Agent
‘* installed on it.
‘*
‘* This code may be redistributed, but must have
‘* this disclaimer included. Agreement to use
‘* this code, absolves me from any liability.
‘******************************************************<\/p>\n
Dim separators As String = “-“
Dim strIncoming As String = Microsoft.VisualBasic.Command()
Dim argCount As Integer
Dim args() As String = strIncoming.Split(separators.ToCharArray)
Dim MessageOutStart As Integer
Dim strMessageOut As String
Dim strFullMessage As String = strIncoming
Dim strApplicationName As String = “VMware VirtualCenter”
Dim objName As String<\/p>\n
Dim eventDescription As String
Dim entityName As String
Dim alarmName As String
Dim triggeringSummary As String
Dim declaringSummary As String
Dim oldStatus As String
Dim newStatus As String
Dim entityObject As String<\/p>\n
If UBound(args) > 0 Then<\/p>\n
strMessageOut = “”<\/p>\n
‘Each argument should read something like this in
‘the VirtualCenter Alert settings:
‘
‘momapp.exe -ed:{eventdescription} -ns:{newstatus} -an:{alarmname}
‘
‘Where the 2 letter argument prefix matches up with
‘the appropriate event item.<\/p>\n
Case “ed”
eventDescription = Right(args(argCount), Len(args(argCount)) – 3)
Case “en”
entityName = Right(args(argCount), Len(args(argCount)) – 3)
Case “an”
alarmName = Right(args(argCount), Len(args(argCount)) – 3)
Case “ts”
triggeringSummary = Right(args(argCount), Len(args(argCount)) – 3)
Case “ds”
declaringSummary = Right(args(argCount), Len(args(argCount)) – 3)
Case “os”
oldStatus = Right(args(argCount), Len(args(argCount)) – 3)
Case “ns”
newStatus = Right(args(argCount), Len(args(argCount)) – 3)
Case “eo”
entityObject = Right(args(argCount), Len(args(argCount)) – 3)
End Select
Next<\/p>\n
‘Register the App as an Event Source
If Not objEventLog.SourceExists(strApplicationName) Then
objEventLog.CreateEventSource(strApplicationName, “Application”)
End If<\/p>\n
strMessageOut = “Alarm: ” & alarmName &amp;amp;amp;amp;amp;amp; vbCrLf & _
“Event: ” & eventDescription & vbCrLf<\/p>\n
‘parameter is omitted, an Informational entry will be written to
‘the application log
Select Case Trim(Trim(newStatus))
Case “Green”
objEventLog.WriteEntry(strMessageOut, EventLogEntryType.Information)
Case “Yellow”
objEventLog.WriteEntry(strMessageOut, EventLogEntryType.Warning)
Case “Red”
objEventLog.WriteEntry(strMessageOut, EventLogEntryType.Error)
Case Else
objEventLog.WriteEntry(strMessageOut, EventLogEntryType.Information)
End Select<\/p>\n
![\"\"](\"http:\/\/www.jasemccarty.com\/blog\/uploaded_images\/momappscreen-727514.JPG\")
<\/a><\/td>\n<\/tr>\n![\"\"](\"http:\/\/www.jasemccarty.com\/blog\/uploaded_images\/momappevent-717846.JPG\")
<\/a><\/td>\n<\/tr>\n![\"\"](\"http:\/\/www.jasemccarty.com\/blog\/uploaded_images\/momappeventitem-744525.JPG\")
<\/a><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n