6 use Data::Dump qw(dump);
8 my $community = 'public';
30 model .1.3.6.1.2.1.25.3.2.1.3.1
31 serial .1.3.6.1.2.1.43.5.1.1.17
32 pages .1.3.6.1.2.1.43.10.2.1.4.1.1
33 @message .1.3.6.1.2.1.43.18.1.1.8
34 @message .1.3.6.1.2.1.43.16
37 foreach my $host ( @printers ) {
39 my ( $snmp, $err ) = Net::SNMP->session(
42 -community => $community,
48 warn "ERROR: $host $err\n";
52 while ( my ($name,$oid) = each %vars ) {
53 warn "# $name $oid\n";
54 if ( $name =~ m/^\@/ ) {
55 my $result = $snmp->get_entries( -columns => [ $oid ] );
56 printf "%s\t%s\t%s\t%s\n", $host, $name, $oid, dump($result) if $result;
58 my $result = $snmp->get_request( -varbindlist => [ $oid ] );
59 printf "%s\t%s\t%s\t%s\n", $host, $name, $oid, $result->{$oid} if exists $result->{$oid};