Argent Software - AAC_FireAlert.dll

VB.NET Fire an alert to the Argent Console

* You must ADD REFERENCE to aac_firealert.dll which can be found at c:\ARGENT\ArgentManagementConsole\ArgentAlertConsole of your Argent XT Technology main engine.

Argent Total Support Interface



    Public Sub PostToArgentConsole( _
  ByVal AlertID As String, _
  ByVal ComputerName As String, _
  ByVal Priority As String, _
  ByVal Comment As String, _
  ByVal Summary As String, _
  ByVal Detail As String, _
  ByVal AlertUID As Guid)


        'This sample program shows you how you can use a VB program to interface to the Argent Alert Console.
        'Copyright 1991-2004 Argent Software, Inc.
        'All Rights Reserved.
        'Argent Software, Inc.
        '24 Orchard View Drive, Londonderry, NH 03053
        'For more information: email VB@Argent.com.
        'Ensure you have the reference of AAC_FireAlert 1.0 Type library in your project

        Dim itFire As AAC_FIREALERTLib.IFireAlert

        Try

           itFire = New AAC_FIREALERTLib.FireAlert

            itFire.RuleName = "SCOM_" & ComputerName
            itFire.Relator = "REL_SCOM_CONNECTOR"
            itFire.Alerts = "EMAIL_CLT_LTS_EMAIL"
            itFire.ApplicationName = "SCOM Connector"
            itFire.ConsoleComment = Comment
            itFire.extra = AlertUID.ToString
            itFire.CustomPriorityText = Priority.ToString.Trim
            itFire.Server = ComputerName
            itFire.AlwaysNotifyConsole = False
            itFire.BrokenTime = Now
            itFire.Summary = Summary
            itFire.Detail = Detail
            itFire.FireAlert("AAC_SERVER")
            itFire = Nothing

        Catch ex As Exception
            MsgBox(Now & " PostToArgentConsole() ERROR: " & ex.ToString)
        End Try