#!./tclnm

# This is another classical "tell me" application, 
#

if {$argc == 1} {
   set host fls-gw1
} else {
   set host [lindex $argv 1]
}

set s0 [snmp open $host]

puts stdout "Inventory for $host at [exec date]\nslot type"
snmp getbulk $s0 -v -l { 
    .1.3.6.1.4.1.45.1.3.1.7.1.1 
    .1.3.6.1.4.1.45.1.3.1.7.1.3 
    } x {
    set j 0
    puts stdout "[format "%3d  %s" [lindex $x 0] [lindex $x 1]]"
    }
