我正在编写一个Perl脚本,它应该检索从远程主机发送/接收的字节,长话短说我想监视网络流量。请注意,主机可能是实际主机或其他类似路由器/交换机等。我检索的数据将存储在循环数据库中,但这并不重要。
我做的第一件事是检索主机的接口然后我应该寻找流量使用。我可以使用OID吗?是否有一个存储这些值的表?
use Net::SNMP;
use Net::SNMP::Interfaces;
main:
{
my $session;
my $hostname = '192.168.x.x';
my $community = 'test';
my $error;
my $oid = '';
my $result;
# RETRIEVING INTERFACES
my $interfaces = Net::SNMP::Interfaces->new(Hostname => $hostname, Community => $community);
my @ifnames = $interfaces->all_interfaces();
foreach $interface (@ifnames) {
my $name = $interface->name();
print "$name\n";
}
# SNMP SESSION OPEN
($session, $error) = Net::SNMP->session(-hostname => $hostname, -community => $community);
print "SESSION: $session\n";
if (!defined $session) {
print "SESSION ERROR: $error\n";
$session->close();
exit(1);
}
# SNMP GET_REQUEST
$result = $session->get_request(-varbindlist => [ $oid ]);
if (!defined $result) {
$error = $session->error();
print "GET_REQUEST ERROR: $error\n";
$session->close();
exit(1);
}
$result = $result->{$oid};
print "GET_REQUEST: $result\n";
# SNMP SESSION CLOSE
$session->close();
exit(0);
}
答案 0 :(得分:5)
ifHCOutOctets OID 1.3.6.1.2.1.31.1.1.1.10 - 传出流量(字节)
ifHCInOctets OID 1.3.6.1.2.1.31.1.1.1.6 - 传入流量(字节)
因此,如果您需要获取端口1的统计信息,那么OID是: 1.3.6.1.2.1.31.1.1.1.10 1