Unregistering a Binding

  • Article

 

Unregistering a Binding

Const GUID_SourceType     = "{fb65c4dc-e468-11d1-aa67-00c04fa345f6}"
Const GUID_SmtpSource     = "{1b3c0666-e470-11d1-aa67-00c04fa345f6}"
Const GUID_EventType      = {COMCAT GUID FOR EVENT}
Const GUID_BindingGUID    = {BINDING GUID}

Dim Manager
Dim SourceType
Dim Source
Dim Bindings
Dim Binding
Dim BindingManager
Dim GUID_Source

Set Manager        = CreateObject("Event.Manager")
Set SourceType     = Manager.SourceTypes(GUID_SourceType)
Set Util           = CreateObject("Event.Util")
' Get the source guid for SMTP service instance 1
Set GUID_Source     = Util.GetIndexedGUID(GUID_SmtpSource, 1)

Set Source         = SourceType.Sources(GUID_Source)
Set BindingManager = Source.GetBindingManager
Set Bindings       = BindingManager.Bindings(GUID_EventType)

Bindings.Remove GUID_BindingGUID