Net::SNMP vis interface med request get - Revision history

Heth at 08:18, 1 April 2010

2010-04-01T08:18:43Z

Heth at 08:16, 1 April 2010

2010-04-01T08:16:02Z

Tcj at 10:54, 12 November 2009

2009-11-12T10:54:01Z

Tcj at 09:53, 12 November 2009

2009-11-12T09:53:35Z

Tcj: New page: #!/usr/bin/perl ####################################### # Author: Tomas Jensen / TDC # # Email.: tcj@tdc.dk # #################################...

2009-11-12T08:45:43Z

New page: <source lang=perl> #!/usr/bin/perl ####################################### # Author: Tomas Jensen / TDC # # Email.: tcj@tdc.dk # #################################...

New page

<source lang=perl>
#!/usr/bin/perl
#######################################
# Author: Tomas Jensen / TDC #
# Email.: tcj@tdc.dk #
#######################################
#
### Pragma's
use strict;
use warnings;
use Socket;
use Net::SNMP qw(:snmp);

my $IfNumbers = '1.3.6.1.2.1.2.1.0';
my $IfListStart ='1.3.6.1.2.1.2.2.1.';
my %IfProp = ("Description"=>2,
"Type"=>3,
"MTU"=>4,
"Speed"=>5,
"MAC"=>6,
"AdminStatus"=>7,
"InOctets"=>10,
"OutOctets"=>16,
"InErrors"=>14,
"OutErrors"=>20
);
my $intnr;
my %interfaces;
my $interface;
my $key;
my $value;
my $ip;
my $addr;
my @result;
my $i;

#################### SUBS ######################

sub RealIp {
## Find real ip address
my $pip = shift;

if ( $pip =~ /^[1-9][0-9]*\.[0-9]+\.[0-9]+\.[0-9]+$/ ){
# Vi har en aegte ip
return $pip;
} else {
if ( $pip =~ /^0.*/ ) {
# Fjern indledende 0'er
$pip =~ s/^0+//;
return $pip;
} else {
# lav get host by name
$addr = inet_aton("$pip");
$addr = inet_ntoa ($addr);
if ( defined $addr ){
return $addr;
}
}
}
}

sub GetIntNrs {
## Find og returner antal interfaces
# Input : session
# OutPut : antal If

my $session = shift;
my $OID;
my $ifn;

my $result = $session->get_request(
-varbindlist => [$IfNumbers]);

if ( ! defined $result) {
print "Arrrrr - Kiks i GetIntNrs!!!\n";
}

($OID, $ifn) = each %{$result};

return $ifn;
}

sub GetIntInfo {
## Hent et interface
# Input : session
# Input : OID
# Output : Tekstinfo

my $session = shift;
my $OID = shift;
my $info;
my $result = $session->get_request(
-varbindlist => [$OID]);

if ( ! defined $result) {
print "Arrrrr - Kiks i GetIntInfo!!!\n";
}

($OID, $info) = each %{$result};
return $info;

}
##################### MAIN ######################

print "Indtast ip eller host: ";
my $host = <>;
chomp $host;

$ip = RealIp($host);

## Sæt session op
my ($session, $error) = Net::SNMP->session(
-hostname => $ip,
-version => '2c', );

if (!defined($session)) {
printf("Kan ikke åbne session til $host fejl: $error\n");
}

## Hent interface antal
print "Henter antal interfaces: \n";
printf " - Der er %s interfaces.\n", ($intnr = GetIntNrs $session);

print "Følgende findes:\n";
for ($i = 1; $i <= $intnr; $i++) {
printf "%s - %s\n", $i, (GetIntInfo $session, "$IfListStart"."$IfProp{'Description'}".".$i");
}

## Hvilket interface skal vises
print "Hvilket interface skal vises. Vælg mellem 1 og $intnr: ";
$interface = <>;
chomp $interface;

if ( $interface >= $intnr ) {
print "Dette interface findes ikke...\n";
exit;
}

## Præsenter interfacet
foreach $key ( keys %IfProp ){
printf "%12s --> %s\n", $key, (GetIntInfo $session, "$IfListStart"."$IfProp{$key}".".$interface");
}
</source>
--[[User:Tcj|Tomas Christian Jensen]] 09:45, 12 November 2009 (CET)
[[Category:Perl]]

@@ Line 218: / Line 218: @@
 </source>
 --[[User:Tcj|Tomas Christian Jensen]] 09:45, 12 November 2009 (CET)
-[[Category:Perl]][[Network Management]]
+[[Category:Perl]][[Category:Network Management]]

← Older revision		Revision as of 09:53, 12 November 2009
Line 1:		Line 1:
		+	__TOC__
		+	=Hvad gør scriptet=
		+	Scriptet finder alle interfaces i udstyret. Derefter beder det efter det interface der skal undersøges.
		+
		+	Herefter vises diverse tællere og anden information for interfacet.
		+
		+	==Output fra script==
		+	<pre>
		+	Indtast ip eller host: localhost
		+	Henter antal interfaces:
		+	- Der er 5 interfaces.
		+	Følgende findes:
		+	1 - lo
		+	2 - eth0
		+	3 - wmaster0
		+	4 - wlan0
		+	5 - pan0
		+	Hvilket interface skal vises. Vælg mellem 1 og 5: 4
		+	InOctets --> 53325141
		+	MAC --> 0x001cbf53933c
		+	InErrors --> 0
		+	OutOctets --> 5236357
		+	MTU --> 1500
		+	Type --> 6
		+	Speed --> 10000000
		+	AdminStatus --> 1
		+	OutErrors --> 0
		+	Description --> wlan0
		+	</pre>
		+
		+	==Koden==
	<source lang=perl>		<source lang=perl>
	#!/usr/bin/perl		#!/usr/bin/perl

@@ Line 38: / Line 38: @@
+#
 ### Pragma's
 use strict;
 use warnings;
-use Socket;
+#use Socket;
 use Net::SNMP qw(:snmp);
 my $IfNumbers = '1.3.6.1.2.1.2.1.0';
@@ Line 67: / Line 69: @@
 #################### SUBS ######################
 sub RealIp {
 	## Find real ip address
 	my $pip = shift;
 	if ( $pip =~ /^[1-9][0-9]*\.[0-9]+\.[0-9]+\.[0-9]+$/ ){
@@ Line 96: / Line 177: @@
 	# OutPut : antal If
 	my $session = shift;
 	my $OID;
@@ Line 104: / Line 186: @@
 	if ( ! defined $result) {
-		print "Arrrrr - Kiks i GetIntNrs!!!\n";
+		die "Arrrrr - Kiks i GetIntNrs!!!\n";
+	}
@@ Line 118: / Line 200: @@
 	# Output : Tekstinfo
 	my $session = shift;
 	my $OID = shift;
@@ Line 125: / Line 208: @@
 	if ( ! defined $result) {
-		print "Arrrrr - Kiks i GetIntInfo!!!\n";
+		die "Arrrrr - Kiks i GetIntInfo!!!\n";
+	}
@@ Line 132: / Line 215: @@
+}
-##################### MAIN ######################
+;
 </source>
 --[[User:Tcj|Tomas Christian Jensen]] 09:45, 12 November 2009 (CET)
 [[Category:Perl]]