' Print a list of all trap profiles ' ----------------- ' Declare variables ' ----------------- Dim ArgFile Dim WshShell Set TrapMgr = CreateObject("UnbrowseSNMP.TrapConfigManager") Wscript.Echo "Opened Trap Manager Ok ! " Set AllProfiles = TrapMgr.Profiles For Each Profile In AllProfiles WScript.Echo Profile.OID Next