tyler.durden
/
centreon-plugins
mirror of https://github.com/centreon/centreon-plugins.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix #5183 

First version working
Go for some checks
This commit is contained in:
garnier-quentin 2014-02-09 21:19:46 +01:00
parent c8671bd80a
commit cab6de9039
7 changed files with 225 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
centreon/plugins/wsman.pm
View File

@ -101,7 +101,7 @@ sub connect {
$self->{output}->option_exit(exit_litteral => 'unknown');
}
openwsman::set_debug(1) if (defined($self->{wsman_params}->{wsman_debug});
openwsman::set_debug(1) if (defined($self->{wsman_params}->{wsman_debug}));
$self->{client} = new openwsman::Client::($self->{wsman_params}->{host}, $self->{wsman_params}->{wsman_port},
$self->{wsman_params}->{wsman_path}, $self->{wsman_params}->{wsman_scheme},
$self->{wsman_params}->{wsman_username}, $self->{wsman_params}->{wsman_password});
@ -125,7 +125,7 @@ sub request {
# $options{nothing_quit} = integer
# $options{dont_quit} = integer
# $options{uri} = string
# $options{wql_fitler} = string
# $options{wql_filter} = string
# $options{result_type} = string ('array' or 'hash' with a key)
# $options{hash_key} = string
@ -136,7 +136,7 @@ sub request {
######
# Check options
if (!defined($options{uri}) || !defined($options{wql_fitler})) {
if (!defined($options{uri}) || !defined($options{wql_filter})) {
$self->{output}->add_option_msg(short_msg => 'Need to specify wql_filter and uri options');
$self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit});
}
@ -167,7 +167,7 @@ sub request {
$self->{output}->add_option_msg(short_msg => 'Could not create filter.');
$self->{output}->option_exit(exit_litteral => $self->{wsman_errors_exit});
}
$filter->wql($options{wql_fitler});
$filter->wql($options{wql_filter});
my $result = $self->{client}->enumerate($client_options, $filter, $options{uri});
unless($result && $result->is_fault eq 0) {
@ -183,7 +183,7 @@ sub request {
######
# Fetch values
my ($array_return, $hash_return)
my ($array_return, $hash_return);
$array_return = [] if ($result_type eq 'array');
$hash_return = {} if ($result_type eq 'hash');
@ -318,10 +318,10 @@ wsman class
=head1 WSMAN OPTIONS
=over 8
Need at least openwsman-perl version >= 2.3.0
=over 8
=item B<--hostname>
Hostname to query (required).
@ -380,4 +380,4 @@ Exit code for wsman Errors (default: unknown)
B<wsman>.
=cut
=cut

2
os/windows/snmp/mode/memory.pm
View File

@ -33,7 +33,7 @@
#
####################################################################################
package os::windows::mode::memory;
package os::windows::snmp::mode::memory;
use base qw(centreon::plugins::mode);

2
os/windows/snmp/mode/service.pm
View File

@ -33,7 +33,7 @@
#
####################################################################################
package os::windows::mode::service;
package os::windows::snmp::mode::service;
use base qw(centreon::plugins::mode);

2
os/windows/snmp/mode/swap.pm
View File

@ -33,7 +33,7 @@
#
####################################################################################
package os::windows::mode::swap;
package os::windows::snmp::mode::swap;
use base qw(centreon::plugins::mode);

8
os/windows/snmp/plugin.pm
View File

@ -33,7 +33,7 @@
#
####################################################################################
package os::windows::plugin;
package os::windows::snmp::plugin;
use strict;
use warnings;
@ -50,12 +50,12 @@ sub new {
'cpu' => 'snmp_standard::mode::cpu',
'list-interfaces' => 'snmp_standard::mode::listinterfaces',
'list-storages' => 'snmp_standard::mode::liststorages',
'memory' => 'os::windows::mode::memory',
'memory' => 'os::windows::snmp::mode::memory',
'packet-errors' => 'snmp_standard::mode::packeterrors',
'processcount' => 'snmp_standard::mode::processcount',
'service' => 'os::windows::mode::service',
'service' => 'os::windows::snmp::mode::service',
'storage' => 'snmp_standard::mode::storage',
'swap' => 'os::windows::mode::swap',
'swap' => 'os::windows::snmp::mode::swap',
'traffic' => 'snmp_standard::mode::traffic',
'uptime' => 'snmp_standard::mode::uptime',
);

146
os/windows/wsman/mode/listservices.pm Normal file
View File

@ -0,0 +1,146 @@
################################################################################
# Copyright 2005-2014 MERETHIS
# Centreon is developped by : Julien Mathis and Romain Le Merlus under
# GPL Licence 2.0.
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation ; either version 2 of the License.
#
# This program is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, see <http://www.gnu.org/licenses>.
#
# Linking this program statically or dynamically with other modules is making a
# combined work based on this program. Thus, the terms and conditions of the GNU
# General Public License cover the whole combination.
#
# As a special exception, the copyright holders of this program give MERETHIS
# permission to link this program with independent modules to produce an executable,
# regardless of the license terms of these independent modules, and to copy and
# distribute the resulting executable under terms of MERETHIS choice, provided that
# MERETHIS also meet, for each linked independent module, the terms and conditions
# of the license of that module. An independent module is a module which is not
# derived from this program. If you modify this program, you may extend this
# exception to your version of the program, but you are not obliged to do so. If you
# do not wish to do so, delete this exception statement from your version.
#
# For more information : contact@centreon.com
# Authors : Quentin Garnier <qgarnier@merethis.com>
#
####################################################################################
package os::windows::wsman::mode::listservices;
use base qw(centreon::plugins::mode);
use strict;
use warnings;
sub new {
my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class;
$self->{version} = '1.0';
$options{options}->add_options(arguments =>
{
"name:s" => { name => 'name' },
"regexp" => { name => 'use_regexp' },
});
return $self;
}
sub check_options {
my ($self, %options) = @_;
$self->SUPER::init(%options);
}
sub manage_selection {
my ($self, %options) = @_;
$self->{result} = $self->{wsman}->request(uri => 'http://schemas.microsoft.com/wbem/wsman/1/wmi/root/cimv2/*',
wql_filter => 'Select Name, DisplayName, StartMode, State From Win32_Service',
result_type => 'hash',
hash_key => 'Name');
foreach my $name (sort(keys %{$self->{result}})) {
# Get all without a name
next if (!defined($self->{option_results}->{name}));
next if (!defined($self->{option_results}->{use_regexp}) && $name eq $self->{option_results}->{name});
next if (defined($self->{option_results}->{use_regexp}) && $name =~ /$self->{option_results}->{name}/);
delete $self->{result}->{$name};
}
}
sub run {
my ($self, %options) = @_;
# $options{wsman} = wsman object
$self->{wsman} = $options{wsman};
$self->manage_selection();
my $services_display = '';
my $services_display_append = '';
foreach my $name (sort(keys %{$self->{result}})) {
$services_display .= $services_display_append . 'name = ' . $name .
'[DisplayName = ' . $self->{output}->to_utf8($self->{result}->{$name}->{DisplayName}) . ',' .
'StartMode = ' . $self->{result}->{$name}->{StartMode} . ',' .
'State = ' . $self->{result}->{$name}->{State} .
']';
$services_display_append = ', ';
}
$self->{output}->output_add(severity => 'OK',
short_msg => 'List services: ' . $services_display);
$self->{output}->display(nolabel => 1);
$self->{output}->exit();
}
sub disco_format {
my ($self, %options) = @_;
$self->{output}->add_disco_format(elements => ['name', 'display_name', 'start_mode', 'state']);
}
sub disco_show {
my ($self, %options) = @_;
# $options{wsman} = wsman object
$self->{wsman} = $options{wsman};
$self->manage_selection();
foreach my $name (sort(keys %{$self->{result}})) {
$self->{output}->add_disco_entry(name => $name,
display_name => $self->{output}->to_utf8($self->{result}->{$name}->{DisplayName}),
start_mode => $self->{result}->{$name}->{StartMode},
state => $self->{result}->{$name}->{State}
);
}
}
1;
__END__
=head1 MODE
List Windows Services.
=over 8
=item B<--name>
Set the service name.
=item B<--regexp>
Allows to use regexp to filter service name (with option --name).
=back
=cut

64
os/windows/wsman/plugin.pm Normal file
View File

@ -0,0 +1,64 @@
################################################################################
# Copyright 2005-2014 MERETHIS
# Centreon is developped by : Julien Mathis and Romain Le Merlus under
# GPL Licence 2.0.
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation ; either version 2 of the License.
#
# This program is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, see <http://www.gnu.org/licenses>.
#
# Linking this program statically or dynamically with other modules is making a
# combined work based on this program. Thus, the terms and conditions of the GNU
# General Public License cover the whole combination.
#
# As a special exception, the copyright holders of this program give MERETHIS
# permission to link this program with independent modules to produce an executable,
# regardless of the license terms of these independent modules, and to copy and
# distribute the resulting executable under terms of MERETHIS choice, provided that
# MERETHIS also meet, for each linked independent module, the terms and conditions
# of the license of that module. An independent module is a module which is not
# derived from this program. If you modify this program, you may extend this
# exception to your version of the program, but you are not obliged to do so. If you
# do not wish to do so, delete this exception statement from your version.
#
# For more information : contact@centreon.com
# Authors : Quentin Garnier <qgarnier@merethis.com>
#
####################################################################################
package os::windows::wsman::plugin;
use strict;
use warnings;
use base qw(centreon::plugins::script_wsman);
sub new {
my ($class, %options) = @_;
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
bless $self, $class;
# $options->{options} = options object
$self->{version} = '0.1';
%{$self->{modes}} = (
'list-services' => 'os::windows::wsman::mode::listservices',
);
return $self;
}
1;
__END__
=head1 PLUGIN DESCRIPTION
Check Windows operating systems through "WinRM" (ws-management protocol).
=cut