Dropping nas session

Hello i have script to drop NAS session.
but there is errors.
here is code.
it returns :
ERROR: Received noSuchName(2) error-status at error-index 1.
#! /usr//bin/perl
use strict;
use Net::SNMP;
my ($session, $error) = Net::SNMP->session(
-hostname  => '192.168.1.1',
-community => 'private',
-port      => 161
);
 
if (!defined($session)) {
    printf("ERROR: %s.\n", $error);
    exit 1;
}
 
my $indexOfConnection = '1.3.6.1.2.1.4.21.1.2.'."$ARGV[0]";
my $result = $session->get_request(
    -varbindlist => [$indexOfConnection]
);
 
if (!defined($result)) {
printf("ERROR: %s.\n", $session->error);
$session->close;
exit 1;
}
    print "index : $result->{$indexOfConnection}\n";
 
my $dropConnection = ".1.3.6.1.2.1.2.2.1.7.".$result->{$indexOfConnection};
print $dropConnection."\n";
 
 
my   $resultt = $session->set_request(
    -varbindlist => [($dropConnection, INTEGER, 2)],
);
 
if (!defined($resultt)) {
printf("ERROR: %s.\n", $session->error);
$session->close;
exit 1;
}
#    print "drop : $resultt->{$dropConnection}\n";
$session->close;
exit 0;

Open in new window

_Amanat_Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Todd MummertConnect With a Mentor Commented:

first:  make your error messages different so you know what line they came from..or add that error to the message

but I'd guess you're not specifying the right version number to the session

add

-version => 2     #   version can be 1, 2, 3    I think 1 is the default, but that's old



0
 
_Amanat_Author Commented:
thanks.
it a wrong version
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.