Denis Evgraphov писал(а):
Можно использовать вызов внешней утилиты snmpset.
Уггу, похоже так и придётся делать.
[hr]
UPD:
Вдруг кому ещё пригодится, всё замечательно работает через Net::SNMP, следующим образом.
Код:
#!/usr/bin/perl
use Net::SNMP;
$dev_ip="192.168.199.123";
$community="private";
($session,$error) = Net::SNMP->session(Hostname=>$dev_ip,Community=>$community);
@request=(("1.3.6.1.4.1.171.10.94.89.89.87.2.1.3.1",INTEGER,1),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.4.1",IPADDRESS,$dev_ip),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.5.1",INTEGER,1),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.6.1",OCTET_STRING,"runningConfig"),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.7.1",INTEGER,2),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.8.1",INTEGER,1),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.9.1",IPADDRESS,$dev_ip),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.10.1",INTEGER,1),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.11.1",OCTET_STRING,"startupConfig"),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.12.1",INTEGER,3),
("1.3.6.1.4.1.171.10.94.89.89.87.2.1.17.1",INTEGER,4));
$session->set_request(-varbindlist=>[@request]);
$session->close();
Ещё раз, спасибо за помощь.