' Create a trap filter that only accepts traps
' from agents you have defined / discovered
'
' Usage : cscript trapfilter-agent.vbs 
'

Set AgentMgr =  CreateObject("UnbrowseSNMP.AgentManager")
Set TrapMgr  =  CreateObject("UnbrowseSNMP.TrapConfigManager")


AgentMgr.InitReadOnly()
Wscript.Echo "Opened SNMP Agents.." 
	
Dim AgentsList
AgentsList = ""
For Each Agent In AgentMgr.Agents
	WScript.Echo  "Adding " &  Agent.IPAddress
        AgentsList = AgentsList + "," + Agent.IPAddress
Next
AgentsList = Right(AgentsList ,Len(AgentsList)- 1)
AgentMgr.Discard
Set AgentMgr = Nothing

TrapMgr.Load
TrapMgr.RemoveTrapFilter "AutomaticAgents"
Set NewFilter = TrapMgr.NewTrapFilter
NewFilter.Name = "AutomaticAgents"
NewFilter.AgentsAllow = AgentsList
TrapMgr.Save

WScript.Echo "New filter created"
WScript.Echo "Dismiss the cscript error box if it is shown ! "