当我尝试使用 Net::SNMP 连接到我的设备时，为什么会出现错误 "Received usmStatsUnknownUserNames.0 Report-PDU with value 1"？

Question

我正在尝试编写一个 Perl 脚本来执行 SNMP 获取。它应该像以下命令一样工作：

snmpget -v 3 -l authNoPriv -a MD5 -u V3User -A V3Password 10.0.1.203 sysUpTime.0

Returns:

SNMPv2-MIB::sysUpTime.0 = Timeticks: (492505406) 57 days, 0:04:14.06

但是我的 Perl 脚本 returns 如下：

ERROR: Received usmStatsUnknownUserNames.0 Report-PDU with value 1 during synchronization.

最后但同样重要的是，这是 Perl 脚本：

use strict;
use warnings;

use Net::SNMP;

my $desc = 'sysUpTime.0';

my ($session, $error) = Net::SNMP->session(
   -hostname     => '10.0.1.202',
   -version      => 'snmpv3',
   -username     => 'V3User',
   -authprotocol => 'md5',
   -authpassword => 'V3Password'
);

if (!defined($session)) {
      printf("ERROR: %s.\n",  $error);
      exit 1;
}
my $response = $session->get_request($desc);
my %pdesc = %{$response};

my $err = $session->error;
if ($err){
   return 1;
}
print %pdesc;
exit 0;

我在同一台 (Linux) 机器上调用了 Perl 脚本和 snmpget。是什么原因造成的，我该如何解决？

Answer 1

查看您的脚本，我注意到主机名值为 10.0.1.202

但是您使用的 snmpget 命令有 10.0.1.203

万一IP错了？

Answer 2

作为 ，您在 Perl 脚本中使用的 IP 地址与在 snmpget 命令中使用的 IP 地址不同；我会仔细检查一下。您收到的特定错误表明您的用户名错误；如果 IP 不匹配只是您问题中的拼写错误，接下来我会仔细检查用户名。

关于您的 Perl 脚本的其他几点：

使用die

您应该使用 die 而不是 printf 和 exit，因为 die 将打印调用它的行号。如果有多个地方可能会失败，这将使调试脚本变得更加容易：

die "Error: $error" if not defined $session;

会打印类似

的内容

Error: foo bar at foo.pl line 17.

此外，在 if 语句中使用 return 没有任何意义；我想你打算使用

if ($err) {
    exit 1;
}

但您应该 die 使用您收到的特定错误消息，而不是默默地失败：

die $err if $err;

修正 get_request

的参数

您对 get_request 方法的调用看起来有误。根据 docs，你应该这样称呼它：

my $response = $session->get_request(-varbindlist => [ $oid ]);

请注意，Net::SNMP 仅适用于数字 OID，因此您必须将 sysUpTime.0 更改为 1.3.6.1.2.1.1.3.0。