Enumerating Current Bindings

Dim EventManager
Set EventManager = WScript.CreateObject("Event.Manager")

dim sourcetype
dim source
dim eventtype
dim manager

wscript.echo "** Event Manager: Source Types:"
for each sourcetype in EventManager.SourceTypes
  wscript.echo "Source Type: "
  wscript.echo "  Display Name: " & sourcetype.DisplayName
  wscript.echo "            ID: " & sourcetype.id
  wscript.echo 
  wscript.echo "  Event Types:"
  wscript.echo "  ------------"
  for each eventtype in sourcetype.eventtypes
    wscript.echo "      Display Name:" & eventtype.displayname
    wscript.echo "                ID:" & eventtype.id
  next
  wscript.echo "  Sources:"
  wscript.echo "  --------"
  for each source in sourcetype.sources
   wscript.echo "     Display Name:" & source.displayname
   wscript.echo "               ID:" & source.id
   wscript.echo "         Bindings:"
   wscript.echo "         -------- "
   set manager = source.getbindingmanager
    for each eventtype in sourcetype.eventtypes
      for each binding in manager.bindings(eventtype.id)
        wscript.echo "             Binding for " & eventtype.displayName & ":"
        wscript.echo "             --------" 
        wscript.echo "               Display Name:" & binding.displayname
        wscript.echo "                         ID:" & binding.id
        wscript.echo "                 Sink Class:" & binding.sinkclass
        wscript.echo "                    Source Properties:"
        set props = binding.sourceproperties
        wscript.echo "                      Count: " & props.count
        for each prop in props
          wscript.echo "                       " & prop
          wscript.echo "                       " & vartype(prop)
          wscript.echo "                       " & props(prop)
        next
        wscript.echo "                    Sink Properties:"
        set props = binding.sinkproperties
        wscript.echo "                      Count: " & props.count
        for each prop in props
          wscript.echo "                       " & prop
          wscript.echo "                       " & vartype(prop)
          wscript.echo "                       " & props(prop)
        next
       next
    next
  next
next

No code available