Heth at 08:18, 1 April 2010

2010-04-01T08:18:22Z

Heth at 08:15, 1 April 2010

2010-04-01T08:15:47Z

Heth: /* Eksempel */

2009-11-10T09:11:56Z

‎Eksempel

Heth: New page: = Installation af Net:SNMP modul = Net::SNMP kræver pakken Crypt::DES Visse pakker fx mange krypteringspakker kan normalt kun downloades fra USA til maskiner i USA. (Lovgivning i USA) ...

2009-11-10T07:16:38Z

New page: = Installation af Net:SNMP modul = Net::SNMP kræver pakken Crypt::DES Visse pakker fx mange krypteringspakker kan normalt kun downloades fra USA til maskiner i USA. (Lovgivning i USA) ...

New page

= Installation af Net:SNMP modul =

Net::SNMP kræver pakken Crypt::DES

Visse pakker fx mange krypteringspakker kan normalt kun downloades fra USA til maskiner i USA. (Lovgivning i USA)

Derfor tilføjer vi bare en server som ikke står i USA i PPM søgelisten

*Start PPM version 3
**rep add Canada http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer58

*PPM version 4
**Canada http://theoryx5.uwinnipeg.ca/ppms/package.lst

*Yderligere rep.
**BdP http://www.bribes.org/perl/ppm/package.xml

= Eksempel =
<source lang=perl>
#!/usr/bin/perl
#######################################
# Author: Henrik Thomsen / Mercantec #
# Email.: heth@mercantec.dk #
#######################################
#
### Pragma's
use strict;
use warnings;
#use diagnostics; # Only for debugging purposes.
### Module's
use Net::SNMP qw(:snmp);

my @devices = ('192.168.22.201','192.168.22.202');

my $ifTable = '1.3.6.1.2.1.2.2.1.2';

foreach my $device (@devices) {
my ($session, $error) = Net::SNMP->session(
-hostname => $device,
-version => '2c', );

if (!defined($session)) {
printf("Kan ikke åbne session til $device fejl: $error\n");
next;
}
print "Henter interfaces fra $device\n";
print "=============================\n";

my $result = $session->get_next_request(
-varbindlist => [$ifTable] );
my ($key,$value);
my $lastkey;

while (defined($result) ) {
while ( ($key,$value) = each %{$result} ) {
if ( !oid_base_match($ifTable, $key)) {
$session->close;
undef $result;
last;
}
print " OID: $key = $value\n";
$lastkey=$key;
}
$result = $session->get_next_request( -varbindlist => [$lastkey] );
print "-->";
}
}
</source>
[[Category:Perl]]

← Older revision		Revision as of 08:18, 1 April 2010
Line 75:		Line 75:


−	[[Category:Perl]][[Network Management]]	+	[[Category:Perl]][[Category:Network Management]]

← Older revision		Revision as of 08:15, 1 April 2010
Line 75:		Line 75:


−	[[Category:Perl]]	+	[[Category:Perl]][[Network Management]]

@@ Line 34: / Line 34: @@
 my $ifTable = '1.3.6.1.2.1.2.2.1.2';
 foreach my $device (@devices) {
@@ Line 67: / Line 68: @@
+}
 </source>
 [[Category:Perl]]

Net::SNMP eksempel - Revision history

Heth at 08:18, 1 April 2010

Heth at 08:15, 1 April 2010

Heth: /* Eksempel */

Heth: New page: = Installation af Net:SNMP modul = Net::SNMP kræver pakken Crypt::DES Visse pakker fx mange krypteringspakker kan normalt kun downloades fra USA til maskiner i USA. (Lovgivning i USA) ...