十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
#!/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
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();
}
今天将使用的脚本做了大大调整,供大家参考!
如果想了解更多,请关注我们的公众号
公众号ID:opdevos
扫码关注
另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。