|
tcl−snmptools − Tcl SNMP tools for managing remote agents |
|
package require snmptools snmp session session arguments snmp translate arguments snmp trap arguments snmp inform arguments snmp keychange arguments snmp ucm arguments snmp vacm arguments session close session get arguments session getnext arguments session set arguments session walk arguments session bulkget arguments session bulkwalk arguments session table arguments |
|
This is a Tcl package that provides SNMP tools for managing remote Agents. It uses the NetSNMP library and supports all standard SNMP v1/v2/v3 operations and more: get, set, getnext, walk, bulkget, bulkwalk, trap, translate and table. It has been written after the NetSNMP command line tools, and shares the same syntax and functionality with them. snmp session session arguments Creates an snmp session, incarnated in the form of a new Tcl command named session. The arguments arguments are documented in snmpcmd(1) of the NetSNMP program. The most relevant to Tcl parameters are: −Oq −Of −On −Oe −OU −OX −Ov −OS −OE −Ob −Ot −OT snmp translate arguments Translates MIB OID names between numeric and textual forms. arguments are documented in snmptranslate(1) of the NetSNMP program. snmp trap arguments Sends SNMP traps to a manager. arguments are documented in snmptrap(1) of the NetSNMP program. snmp inform arguments Sends SNMP informs to a manager. arguments are documented in snmpinform(1) of the NetSNMP program. snmp keychange arguments This function is not implemented yet. snmp ucm arguments This function is not implemented yet. snmp vacm arguments This function is not implemented yet. session close Closes an active session, removes the associated command and any reserved memory. session get arguments Communicates with a network entity using SNMP GET requests. arguments are documented in snmpget(1) of the NetSNMP program. session getnext arguments Communicates with a network entity using SNMP GETNEXT requests. arguments are documented in snmpgetnext(1) of the NetSNMP program. session set arguments Communicates with a network entity using SNMP SET requests. arguments are documented in snmpset(1) of the NetSNMP program. session walk arguments Retrieves a subtree of management values using SNMP GETNEXT requests. arguments are documented in snmpwalk(1) of the NetSNMP program. session bulkget arguments Communicates with a network entity using SNMP GETBULK requests. arguments are documented in bulkget(1) of the NetSNMP program. session bulkwalk arguments Retrieves a subtree of management values using SNMP GETBULK requests. arguments are documented in snmpbulkwalk(1) of the NetSNMP program. session table arguments Retrieves an SNMP table. arguments are documented in snmptable(1) of the NetSNMP program. |
package require snmptools puts "Opening.." set ret [snmp session lo −v1 −c public localhost] puts "Getting.." set ret [lo get sysLocation.0 sysName.0 system.sysUpTime.0 system.sysContact.0] puts "Result: $ret" puts "errorInfo: $errorInfo" puts "Closing.." lo close |
Opening..
Getting..
Result: {SNMPv2−MIB::sysLocation.0 = STRING: Mobile}
{SNMPv2−MIB::sysName.0 = STRING: alexster}
{DISMAN−EVENT−MIB::sysUpTimeInstance = Timeticks: (966) 0:00:09.66}
{SNMPv2−MIB::sysContact.0 = STRING: alex}
errorInfo:
Closing..
|
package require snmptools
puts "Opening.."
set ret [snmp session lo −v1 −c public localhost]
puts "Getting.."
catch {set ret [lo getnext sysLocation.0 sysName.0 system.sysUpTime.0 system.sysContact.0]}
puts "Result: $ret"
puts "errorInfo: $errorInfo"
puts "Closing.."
lo close
|
Opening..
Getting..
Result: {SNMPv2−MIB::sysServices.0 = INTEGER: 12}
{SNMPv2−MIB::sysLocation.0 = STRING: Mobile}
{SNMPv2−MIB::sysContact.0 = STRING: alex}
{SNMPv2−MIB::sysName.0 = STRING: alexster}
errorInfo:
Closing..
|
package require snmptools puts "Opening.." set ret [snmp session lo −v1 −c private localhost] puts "Setting.." puts "Old:[lo get sysName.0]" lo set sysName.0 s testname puts "New:[lo get sysName.0]" puts "errorInfo: $errorInfo" puts "Closing.." lo close |
Opening..
Setting..
Old:{SNMPv2−MIB::sysName.0 = STRING: default}
New:{SNMPv2−MIB::sysName.0 = STRING: testname}
errorInfo:
Closing..
|
package require snmptools puts "Opening.." set ret [snmp session lo −v1 −Ov −Oe −Oq −OU −Ot −c public localhost] puts "Walking.." set ret [lo walk system] puts "Result: $ret" puts "errorInfo: $errorInfo" puts "Closing.." lo close |
Opening..
Walking..
Result: {Linux localhost 2.6.22.13−0.3−default #1 SMP 2007/11/19 15:02:58 UTC x86_64}
{NET−SNMP−MIB::netSnmpAgentOIDs.10}
{28170}
{alex}
{testname}
{Mobile}
{12}
{6}
{SNMP−FRAMEWORK−MIB::snmpFrameworkMIBCompliance}
{SNMP−MPD−MIB::snmpMPDCompliance}
{SNMP−USER−BASED−SM−MIB::usmMIBCompliance}
{SNMPv2−MIB::snmpMIB}
{TCP−MIB::tcpMIB}
{IP−MIB::ip}
{UDP−MIB::udpMIB}
{SNMP−VIEW−BASED−ACM−MIB::vacmBasicGroup}
{The SNMP Management Architecture MIB.}
{The MIB for Message Processing and Dispatching.}
{The management information definitions for the SNMP User−based Security Model.}
{The MIB module for SNMPv2 entities}
{The MIB module for managing TCP implementations}
{The MIB module for managing IP and ICMP implementations}
{The MIB module for managing UDP implementations}
{View−based Access Control Model for SNMP.}
{6}
{6}
{6}
{6}
{6}
{6}
{6}
{6}
errorInfo:
Closing..
|
package require snmptools
puts "Opening.."
set ret [snmp session lo −v2c −Os −c public localhost]
puts "{[lo bulkget −h]}"
puts "Getting.."
set ret [lo bulkget −Cn1 −Cr5 system ifTable]
puts "Result: $ret"
puts "errorInfo: { $errorInfo }"
puts "Closing.."
lo close
|
Opening..
{USAGE: bulkget OID [OID]...
−h This help message
−C APPOPTS Set various application specific behaviours:
n<NUM>: set non−repeaters to <NUM>
r<NUM>: set max−repeaters to <NUM>
}
Getting..
Result: {sysDescr.0 = STRING: Linux localhost 2.6.22.13−0.3−default #1 SMP 2007/11/19 15:02:58 UTC x86_64}
{ifIndex.1 = INTEGER: 1}
{ifIndex.2 = INTEGER: 2}
{ifIndex.3 = INTEGER: 3}
{ifDescr.1 = STRING: lo}
{ifDescr.2 = STRING: eth0}
errorInfo:
{}
Closing..
|
package require snmptools puts "Opening.." set ret [snmp session lo −v2c −Ov −Oe −Oq −OU −Ot −c public localhost] puts "Walking.." set ret [lo bulkwalk system] puts "Result: $ret" puts "errorInfo: $errorInfo" puts "Closing.." lo close |
Opening..
Walking..
Result: {Linux localhost 2.6.22.13−0.3−default #1 SMP 2007/11/19 15:02:58 UTC x86_64}
{NET−SNMP−MIB::netSnmpAgentOIDs.10}
{36470}
{alex}
{testname}
{Mobile}
{12}
{6}
{SNMP−FRAMEWORK−MIB::snmpFrameworkMIBCompliance}
{SNMP−MPD−MIB::snmpMPDCompliance}
{SNMP−USER−BASED−SM−MIB::usmMIBCompliance}
{SNMPv2−MIB::snmpMIB}
{TCP−MIB::tcpMIB}
{IP−MIB::ip}
{UDP−MIB::udpMIB}
{SNMP−VIEW−BASED−ACM−MIB::vacmBasicGroup}
{The SNMP Management Architecture MIB.}
{The MIB for Message Processing and Dispatching.}
{The management information definitions for the SNMP User−based Security Model.}
{The MIB module for SNMPv2 entities}
{The MIB module for managing TCP implementations}
{The MIB module for managing IP and ICMP implementations}
{The MIB module for managing UDP implementations}
{View−based Access Control Model for SNMP.}
{6}
{6}
{6}
{6}
{6}
{6}
{6}
{6}
errorInfo:
Closing..
|
package require snmptools
puts "Opening.."
set ret [snmp session lo −v2c −c public −OX localhost]
puts "Getting.."
set ret [lo table −Cl −CB −Ci −Cb −Cc 80 −Cw 80 ifTable]
puts "Result: >>>>>>>>>>>>>>>0ret0<<<<<<<<<<<<<<<<<<<"
puts "errorInfo: { $errorInfo }"
puts "Closing.."
lo close
|
Opening..
Getting..
Result: >>>>>>>>>>>>>>>
{IF−MIB::ifTable}
{
{Index }
{Descr }
{Type }
{Mtu }
{Speed }
{PhysAddress }
{AdminStatus }
{OperStatus }
{LastChange }
{InOctets }
{InUcastPkts }
{InNUcastPkts }
{InDiscards }
{InErrors }
{InUnknownProtos }
{OutOctets }
{OutUcastPkts }
{OutNUcastPkts }
{OutDiscards }
{OutErrors }
{OutQLen }
{Specific }
}
{[1]}
{
{1 }
{lo }
{softwareLoopback }
{16436 }
{10000000 }
{ }
{up }
{up }
{0:0:00:00.00 }
{21723 }
{274 }
{0 }
{0 }
{0 }
{0 }
{21723 }
{274 }
{0 }
{0 }
{0 }
{0 }
{SNMPv2−SMI::zeroDotZero }
}
{[2]}
{
{2 }
{eth0 }
{ethernetCsmacd }
{1500 }
{100000000 }
{0:3:d:46:de:35 }
{up }
{up }
{0:0:00:00.00 }
{10648968 }
{27645 }
{0 }
{0 }
{0 }
{0 }
{1836946 }
{18836 }
{0 }
{0 }
{0 }
{0 }
{SNMPv2−SMI::zeroDotZero }
}
{[3]}
{
{3 }
{eth1 }
{ethernetCsmacd }
{1500 }
{10000000 }
{0:14:a5:97:3f:1f }
{up }
{down }
{0:0:00:00.00 }
{0 }
{0 }
{0 }
{0 }
{0 }
{0 }
{309582 }
{7371 }
{0 }
{0 }
{0 }
{0 }
{SNMPv2−SMI::zeroDotZero }
}
<<<<<<<<<<<<<<<<<<<<
errorInfo:
{ }
|
package require snmptools
set errorInfo {}
puts "Translating.."
catch {set ret [snmp translate]}
puts "errorInfo: { $errorInfo }"
catch {puts "Result: $ret"}
puts {−−−−−−−−−−−−−−−−−−−−−−−−}
set errorInfo {}
puts "Translating.."
catch {set ret [snmp translate −Onf −IR sysDescr]}
puts "errorInfo: { $errorInfo }"
catch {puts "Result: $ret"}
|
Translating..
errorInfo:
{Syntax error. Try −−help
while executing
"snmp translate"}
−−−−−−−−−−−−−−−−−−−−−−−−
Translating..
errorInfo:
{}
Result: .iso.org.dod.internet.mgmt.mib−2.system.sysDescr
|
package require snmptools
set errorInfo {}
puts "Sending trap.."
catch {set ret [snmp trap −v 1 −c public udp:localhost:161 "" "" 0 0 ""]}
puts "errorInfo: { $errorInfo }"
catch {puts "Result: $ret"}
|
Sending trap..
errorInfo:
{ }
Result:
|
|
Alexandros Stergiakis <sterg@kth.se> |
|
Copyright (C) 2008 Alexandros Stergiakis This program is free software: you can redistribute it
and/or This program is distributed in the hope that it will be
useful, You should have received a copy of the GNU General Public
License |