Welcome to ISAserver.org

Signal an event

Users viewing this topic: none

Logged in as: Guest

Printable Version

All Forums >> [ISA Server 2004 Misc.] >> ISA Server 2004 Programming >> Signal an event

Page: [1]

Message

<< Older Topic Newer Topic >>

Signal an event - 5.Feb.2005 1:59:00 PM

mosquitooth

Posts: 8
Joined: 28.Jul.2004
Status: offline

Hi,

I wrote the following VB script to create an event (and an alert) and then
to signal it:

Dim root, array, alerts, events
Dim g As New Guid("{34799513-52F5-4e7d-976A-B361D868B4F5}")
Dim myalert, myevent

root = CreateObject("FPC.Root")
array = root.GetContainingArray()
alerts = array.Alerts

Try
events = array.RuleElements.EventDefinitions
myevent = events.Add("TestAlert", "{34799513-52F5-4e7d-976A-B361D868B4F5}")

events.Save()
myalert = alerts.Add("this is a test",
"{34799513-52F5-4e7d-976A-B361D868B4F5}")

myalert.Actions.SetSendMail("SendMail", "MailServer", "firewall",
"mike@northwindtraders.com")
myalert.Actions.Save()
alerts.Save()

Catch
'already exists (either event or/and alert)
events.ItemByGuid("{34799513-52F5-4e7d-976A-B361D868B4F5}").Signal()
End Try

When I run this, an exception occurrs:
'System.Runtime.InteropServices.COMException'
Invalid data type

Can anyone help me out of this?

Thanks
Peter