#!/usr/bin/env perl
###################################
#Version 1.1
#Auth Badboy
#FileName Check_disk_utilization.pl
#LastModify 20120722
###################################
use strict;
use Net::SNMP;
use Nagios::Plugin;

(my $snmpVersion = Net::SNMP->VERSION) =~ s/\D//g;
my $TIMEOUT=15;

my $np=Nagios::Plugin->new(
      shortname=>'CheckDiskUtilization',
      usage=>'Usage: %s -H -C -c -w ',
      version =>'Version 1.1'
);

sub isnotnum { # Return true if arg is not a number
 my $num = shift;
 if ( $num =~ /^-?(\d+\.?\d*)|(^\.\d+)$/ ) { return 0; }
 return 1;
}

$SIG{'ALRM'} = sub {
  $np->nagios_exit(UNKNOWN, "ERROR: Alarm signal (Nagios time-out)");
};

sub verbose {
  my $t = shift;
  print $t, "\n" if $np->opts->verbose > 0;
}

sub check_options{
  $np->add_arg(spec => 'hostname|H=s',  help => 'Hostname or IP address to poll', required => 1, label => [ 'HOSTNAME' ]);
  $np->add_arg(spec => 'community|C=s', help => 'SNMP community to use when connecting', required => 1, default => 'public', label
 => [ 'COMMUNITY' ]);
 $np->add_arg(spec => 'critical|c=i',  help => 'Return critical status if larger than critical threshold', label => [ 'threshold n
um' ]);
  $np->add_arg(spec => 'warning|w=i',   help => 'Return warning status if larger than warning threshold', label => [ 'threshold nu
m' ]);
  $np->add_arg(spec => 'port|p=i',      help => 'Changes the SNMP port, defaults to 161', default => 161, label => [ 'PORT' ]);
  $np->add_arg(spec => 'snmpv1|1',      help => 'Use SNMP v1 instead of the default version 2c');
  $np->add_arg(spec => 'perfdata',      help => 'Write out performance data (number of disk used size)');

  $np->getopts();

  if (defined($np->opts->timeout) && (isnotnum($np->opts->timeout) || ($np->opts->timeout < 2) || ($np->opts->timeout > 60))) {
     $np->nagios_exit(UNKNOWN, 'Timeout must be between 1 and 60');
  }
  if (!defined($np->opts->critical) || !defined($np->opts->warning) || isnotnum($np->opts->critical) || isnotnum($np->opts->warning
)) {
        $np->nagios_exit(UNKNOWN, 'The values for critical and warning threshold must be integers');
     }
}

check_options();

my $disk_warning=$np->opts->warning;
my $disk_critical=$np->opts->critical;

if (defined($TIMEOUT)) {
  verbose("Alarm at $TIMEOUT");
  alarm($TIMEOUT);
} else {
  verbose("No timeout defined : " . $np->opts->timeout . " + 10");
  alarm ($np->opts->timeout + 10);
}

#snmp data
my $disk_index_table = ".1.3.6.1.2.1.25.2.3.1.1";
my $disk_index_result=get_snmp_data($disk_index_table);
my $disk_desrc_table = ".1.3.6.1.2.1.25.2.3.1.3";
my $disk_desrc_result=get_snmp_data($disk_desrc_table);
my $disk_units_table = ".1.3.6.1.2.1.25.2.3.1.4";
my $disk_units_result=get_snmp_data($disk_units_table);
my $disk_size_table = ".1.3.6.1.2.1.25.2.3.1.5";
my $disk_size_result=get_snmp_data($disk_size_table);
my $disk_used_table = ".1.3.6.1.2.1.25.2.3.1.6";
my $disk_used_result=get_snmp_data($disk_used_table);

my $status=undef;
my $critical_count=0;

foreach my $oid (keys(%$disk_index_result)) {
   my $disk_desrc=${$disk_desrc_result}{$disk_desrc_table.".".${$disk_index_result}{$oid}};
   my $disk_total_size=${$disk_size_result}{$disk_size_table.".".${$disk_index_result}{$oid}};
   my $disk_used_size=${$disk_used_result}{$disk_used_table.".".${$disk_index_result}{$oid}};
   if($disk_desrc!~/Virtual Memory|R:/ and $disk_desrc !~/Physical Memory|R:/ and $disk_total_size !=0 ){
       my $disk_used_utilization=$disk_used_size/$disk_total_size*100;
       if($disk_used_utilization > $disk_critical){
             printf "%.2s Critical %2.2f%%; ",$disk_desrc,$disk_used_utilization;
             $status=2;
             ++$critical_count;
             next;
       }
       elsif($disk_used_utilization >$disk_warning){
            printf "%.2s Warning %2.2f%%; ",$disk_desrc,$disk_used_utilization;
             $status=1;
             next;
       }
       elsif( $status!=1 and $status!=2 ){
                       printf "%.2s OK;",$disk_desrc;
                       $status=0;
               }
   }           
}
if($critical_count != 0){
   $status=2;
   verbose("\nPlugin Exit Code=$status");
}
verbose("Plugin Exit Code=$status");
exit $status;

sub get_snmp_data(){
my $oid=shift;
my ($session, $error) = (undef, undef);
if (defined($np->opts->snmpv1)) {
  # SNMPv1 login
  ($session, $error) = Net::SNMP->session(
     -hostname => $np->opts->hostname,
     -community => $np->opts->community,
     -port     => $np->opts->port,
     -timeout  => $np->opts->timeout
  );
} else {
  # SNMPv2 login
  ($session, $error) = Net::SNMP->session(
     -hostname => $np->opts->hostname,
     -version  => 2,
     -community => $np->opts->community,
     -port     => $np->opts->port,
     -timeout  => $np->opts->timeout
  );
}

if (!defined($session)) {
  $np->nagios_exit(UNKNOWN, 'SNMP Error: ' . $error);
}

#get snmp data
  my $result = undef;
  $result = ($snmpVersion < 4) ? $session->get_table($oid) : $session->get_table(Baseoid => $oid);

if (!defined($result)) {
  $session->close;
  $np->nagios_exit(UNKNOWN, "ERROR: get snmp data table: " . $session->error);
}
       return $result;
       $session->close();
}

创新互联是工信部颁发资质IDC服务器商，为用户提供优质的重庆服务器托管服务

今天将使用的脚本做了大大调整，供大家参考!

如果想了解更多，请关注我们的公众号
公众号ID:opdevos
扫码关注

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

名称栏目：nagios磁盘利用率监控-创新互联
转载注明：http://scgulin.cn/article/dpephd.html