diff --git a/storage/hp/eva/cli/custom/api.pm b/storage/hp/eva/cli/custom/api.pm
new file mode 100644
index 000000000..4cbba0307
--- /dev/null
+++ b/storage/hp/eva/cli/custom/api.pm
@@ -0,0 +1,211 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::custom::api;
+
+use strict;
+use warnings;
+use centreon::plugins::misc;
+use XML::Simple;
+
+sub new {
+    my ($class, %options) = @_;
+    my $self  = {};
+    bless $self, $class;
+
+    if (!defined($options{output})) {
+        print "Class Custom: Need to specify 'output' argument.\n";
+        exit 3;
+    }
+    if (!defined($options{options})) {
+        $options{output}->add_option_msg(short_msg => "Class Custom: Need to specify 'options' argument.");
+        $options{output}->option_exit();
+    }
+    
+    if (!defined($options{noptions})) {
+        $options{options}->add_options(arguments => 
+                    {                      
+                    "manager-hostname:s"  => { name => 'manager_hostname' },
+                    "manager-username:s"  => { name => 'manager_username' },
+                    "manager-password:s"  => { name => 'manager_password' },
+                    "manager-system:s"    => { name => 'manager_system' },
+                    "timeout:s"           => { name => 'timeout', default => 50 },
+                    "sudo"                => { name => 'sudo' },
+                    "command:s"           => { name => 'command', default => 'sssu_linux_x64' },
+                    "command-path:s"      => { name => 'command_path' },
+                    "command-options:s"   => { name => 'command_options', default => '' },
+                    });
+    }
+    $options{options}->add_help(package => __PACKAGE__, sections => 'SSU CLI OPTIONS', once => 1);
+
+    $self->{output} = $options{output};
+    $self->{mode} = $options{mode};
+    
+    return $self;
+}
+
+sub set_options {
+    my ($self, %options) = @_;
+
+    $self->{option_results} = $options{option_results};
+}
+
+sub set_defaults {
+    my ($self, %options) = @_;
+
+    foreach (keys %{$options{default}}) {
+        if ($_ eq $self->{mode}) {
+            for (my $i = 0; $i < scalar(@{$options{default}->{$_}}); $i++) {
+                foreach my $opt (keys %{$options{default}->{$_}[$i]}) {
+                    if (!defined($self->{option_results}->{$opt}[$i])) {
+                        $self->{option_results}->{$opt}[$i] = $options{default}->{$_}[$i]->{$opt};
+                    }
+                }
+            }
+        }
+    }
+}
+
+sub check_options {
+    my ($self, %options) = @_;
+
+    if (!defined($self->{option_results}->{manager_hostname}) || $self->{option_results}->{manager_hostname} eq '') {
+        $self->{output}->add_option_msg(short_msg => "Need to set manager-hostname option.");
+        $self->{output}->option_exit();
+    }
+    if (!defined($self->{option_results}->{manager_username}) || $self->{option_results}->{manager_username} eq '') {
+        $self->{output}->add_option_msg(short_msg => "Need to set manager-username option.");
+        $self->{output}->option_exit();
+    }
+    if (!defined($self->{option_results}->{manager_password})) {
+        $self->{output}->add_option_msg(short_msg => "Need to set manager-password option.");
+        $self->{output}->option_exit();
+    }
+    if (!defined($self->{option_results}->{manager_system}) || $self->{option_results}->{manager_system} eq '') {
+        $self->{output}->add_option_msg(short_msg => "Need to set manager-system option.");
+        $self->{output}->option_exit();
+    }
+
+    return 0;
+}
+
+sub ssu_build_options {
+    my ($self, %options) = @_;
+    
+    return if (defined($self->{option_results}->{command_options}) && $self->{option_results}->{command_options} ne '');
+    $self->{option_results}->{command_options} = 
+        "'select manager \"$self->{option_results}->{manager_hostname}\" USERNAME=$self->{option_results}->{manager_username} PASSWORD=$self->{option_results}->{manager_password}' 'select system $self->{option_results}->{manager_system}'";
+    foreach my $cmd (keys %{$options{commands}}) {
+        $self->{option_results}->{command_options} .= " '$cmd'";
+    }
+}
+
+sub ssu_execute {
+    my ($self, %options) = @_;
+    
+    $self->ssu_build_options(%options);
+    my ($response) = centreon::plugins::misc::execute(output => $self->{output},
+                                                      options => $self->{option_results},
+                                                      sudo => $self->{option_results}->{sudo},
+                                                      command => $self->{option_results}->{command},
+                                                      command_path => $self->{option_results}->{command_path},
+                                                      command_options => $self->{option_results}->{command_options});
+    my $xml_root = '<root>';
+    while ($response =~ /(<object>.*?<\/object>)/msig) {
+        $xml_root .= $1;
+    }
+    $xml_root .= '</root>';
+    
+    my $xml_result;
+    eval {
+        $xml_result = XMLin($xml_root, 
+            ForceArray => ['object', 'diskslot', 'powersupply', 'sensor', 'fan', 'deviceport', 
+                           'module', 'vdcoutput', 'source'],
+            KeyAttr => [], SuppressEmpty => '');
+    };
+    if ($@) {
+        $self->{output}->add_option_msg(short_msg => "Cannot decode xml response: $@");
+        $self->{output}->option_exit();
+    }
+    
+    $self->{output}->output_add(long_msg => $response, debug => 1);
+    return $xml_result;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+SSU CLI
+
+=head1 SYNOPSIS
+
+ssu cli
+
+=head1 SSU CLI OPTIONS
+
+=over 8
+
+=item B<--manager-hostname>
+
+Manager hostname to query.
+
+=item B<--manager-username>
+
+Manager username.
+
+=item B<--manager-password>
+
+Manager password.
+
+=item B<--manager-system>
+
+Manager system.
+
+=item B<--timeout>
+
+Set timeout (Default: 50).
+
+=item B<--sudo>
+
+Use 'sudo' to execute the command.
+
+=item B<--command>
+
+Command to get information (Default: 'sssu_linux_x64').
+Can be changed if you have output in a file.
+
+=item B<--command-path>
+
+Command path (Default: none).
+
+=item B<--command-options>
+
+Command options (Default: none).
+
+=back
+
+=head1 DESCRIPTION
+
+B<custom>.
+
+=cut
diff --git a/storage/hp/eva/cli/mode/components/battery.pm b/storage/hp/eva/cli/mode/components/battery.pm
new file mode 100644
index 000000000..6c9f132ad
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/battery.pm
@@ -0,0 +1,66 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::battery;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls controller full xml'} = 1;
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking cache batteries");
+    $self->{components}->{battery} = {name => 'cache battery', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'battery'));
+    
+    # <object>
+    #    <objecttype>controller</objecttype>
+    #    <objectname>\Hardware\Rack 1\Controller Enclosure 7\Controller B</objectname>
+    #    <cachebattery>
+    #         <operationalstate>good</operationalstate>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'controller');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        my $instance = $object->{objectname};
+            
+        next if ($self->check_filter(section => 'battery', instance => $instance));
+
+        $self->{components}->{battery}->{total}++;
+        
+        $self->{output}->output_add(long_msg => sprintf("cache battery '%s' status is '%s' [instance = %s]",
+                                    $instance, $object->{cachebattery}->{operationalstate}, $instance, 
+                                    ));
+        
+        my $exit = $self->get_severity(label => 'default', section => 'battery', value => $object->{cachebattery}->{operationalstate});
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Cache battery '%s' status is '%s'", $instance, $object->{cachebattery}->{operationalstate}));
+        }
+    }
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/components/disk.pm b/storage/hp/eva/cli/mode/components/disk.pm
new file mode 100644
index 000000000..da6549c0e
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/disk.pm
@@ -0,0 +1,65 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::disk;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls disk full xml'} = 1;
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking disks");
+    $self->{components}->{disk} = {name => 'disks', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'disk'));
+    
+    # <object>
+    #    <objecttype>disk</objecttype>
+    #    <objectname>\Disk Groups\Ungrouped Disks\Disk 133</objectname>
+    #    <operationalstate>good</operationalstate>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'disk');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        my $instance = $object->{objectname};
+            
+        next if ($self->check_filter(section => 'disk', instance => $instance));
+
+        $self->{components}->{disk}->{total}++;
+        
+        $self->{output}->output_add(long_msg => sprintf("disk '%s' status is '%s' [instance = %s]",
+                                    $instance, $object->{operationalstate}, $instance, 
+                                    ));
+        
+        my $exit = $self->get_severity(label => 'default', section => 'disk', value => $object->{operationalstate});
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Disk '%s' status is '%s'", $instance, $object->{operationalstate}));
+        }
+    }
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/components/diskgrp.pm b/storage/hp/eva/cli/mode/components/diskgrp.pm
new file mode 100644
index 000000000..95794760b
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/diskgrp.pm
@@ -0,0 +1,65 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::diskgrp;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls disk_group full xml'} = 1;
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking disk groups");
+    $self->{components}->{diskgrp} = {name => 'disk groups', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'diskgrp'));
+    
+    # <object>
+    #    <objecttype>diskgroupfolder</objecttype>
+    #    <objectname>\Disk Groups\XXX</objectname>
+    #    <operationalstate>good</operationalstate>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'diskgroupfolder');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        my $instance = $object->{objectname};
+            
+        next if ($self->check_filter(section => 'diskgrp', instance => $instance));
+
+        $self->{components}->{diskgrp}->{total}++;
+        
+        $self->{output}->output_add(long_msg => sprintf("disk group '%s' status is '%s' [instance = %s]",
+                                    $instance, $object->{operationalstate}, $instance, 
+                                    ));
+        
+        my $exit = $self->get_severity(label => 'default', section => 'diskgrp', value => $object->{operationalstate});
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("Disk group '%s' status is '%s'", $instance, $object->{operationalstate}));
+        }
+    }
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/components/fan.pm b/storage/hp/eva/cli/mode/components/fan.pm
new file mode 100644
index 000000000..9ae236d1f
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/fan.pm
@@ -0,0 +1,135 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::fan;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls diskshelf full xml'} = 1;
+    $self->{ssu_commands}->{'ls controller full xml'} = 1;
+}
+
+sub fan_ctrl {
+    my ($self) = @_;
+    
+    # <object>
+    #    <objecttype>controller</objecttype>
+    #    <objectname>\Hardware\Rack 1\Controller Enclosure 7\Controller B</objectname>
+    #    <fans>
+    #        <fan>
+    #          <fanname>fan0</fanname>
+    #          <status>normal</status>
+    #          <speed>2240</speed>
+    #        </fan>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'controller');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        foreach my $result (@{$object->{fans}->{fan}}) {
+            my $instance = $object->{objectname} . '/' . $result->{fanname};
+            
+            next if ($self->check_filter(section => 'fan', instance => $instance));
+            next if ($result->{status} =~ /notinstalled/i &&
+                     $self->absent_problem(section => 'fan', instance => $instance));
+
+            $self->{components}->{fan}->{total}++;
+            
+            $self->{output}->output_add(long_msg => sprintf("fan '%s' status is '%s' [instance = %s] [value = %s]",
+                                        $instance, $result->{status}, $instance, 
+                                        $result->{speed}));
+            
+            my $exit = $self->get_severity(label => 'default', section => 'fan', value => $result->{status});
+            if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Fan '%s' status is '%s'", $instance, $result->{status}));
+            }
+            
+            next if ($result->{speed} !~ /[0-9]/);
+            my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'fan', instance => $instance, value => $result->{speed});        
+            if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit2,
+                                            short_msg => sprintf("Fan '%s' is %s rpm", $instance, $result->{speed}));
+            }
+            $self->{output}->perfdata_add(label => 'fan_' . $instance, unit => 'rpm', 
+                                          value => $result->{speed},
+                                          warning => $warn,
+                                          critical => $crit, 
+                                          min => 0
+                                          );
+        }
+    }
+}
+
+sub fan_diskshelf {
+    my ($self) = @_;
+        
+    # <object>
+    #    <objecttype>diskshelf</objecttype>
+    #    <objectname>\Hardware\Rack 1\Disk Enclosure 3</objectname>
+    #    <cooling>
+    #        <fans>
+    #           <fan>
+    #               <name>fan1</name>
+    #               <operationalstate>good</operationalstate>
+    #               <failprediction>No</failprediction>
+    #               <speed>speed_1_lowest</speed>
+    #           </fan>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'diskshelf');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        foreach my $result (@{$object->{cooling}->{fans}->{fan}}) {
+            my $instance = $object->{objectname} . '/' . $result->{name};
+            
+            next if ($self->check_filter(section => 'fan', instance => $instance));
+            next if ($result->{operationalstate} =~ /notinstalled/i &&
+                     $self->absent_problem(section => 'fan', instance => $instance));
+
+            $self->{components}->{fan}->{total}++;
+            
+            $self->{output}->output_add(long_msg => sprintf("fan '%s' status is '%s' [instance = %s]",
+                                        $instance, $result->{operationalstate}, $instance, 
+                                        ));
+            
+            my $exit = $self->get_severity(label => 'default', section => 'fan', value => $result->{operationalstate});
+            if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Fan '%s' status is '%s'", $instance, $result->{operationalstate}));
+            }
+        }
+    }
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking fans");
+    $self->{components}->{fan} = {name => 'fans', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'fan'));
+    
+    fan_ctrl($self);
+    fan_diskshelf($self);
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/components/iomodule.pm b/storage/hp/eva/cli/mode/components/iomodule.pm
new file mode 100644
index 000000000..2b744a876
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/iomodule.pm
@@ -0,0 +1,72 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::iomodule;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls diskshelf full xml'} = 1;
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking IO modules");
+    $self->{components}->{iomodule} = {name => 'io modules', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'iomodule'));
+    
+    # <object>
+    #    <objecttype>diskshelf</objecttype>
+    #    <objectname>\Hardware\Rack 1\Disk Enclosure 3</objectname>
+    #    <iocomm>
+    #        <iomodules>
+    #           <module>
+    #               <name>modulea</name>
+    #               <operationalstate>good</operationalstate>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'diskshelf');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        foreach my $result (@{$object->{iocomm}->{iomodules}->{module}}) {
+            next if ($result->{name} eq '');
+            my $instance = $object->{objectname} . '/' . $result->{name};
+            
+            next if ($self->check_filter(section => 'iomodule', instance => $instance));
+
+            $self->{components}->{iomodule}->{total}++;
+            
+            $self->{output}->output_add(long_msg => sprintf("IO module '%s' status is '%s' [instance = %s]",
+                                        $instance, $object->{operationalstate}, $instance, 
+                                        ));
+            
+            my $exit = $self->get_severity(label => 'default', section => 'iomodule', value => $object->{operationalstate});
+            if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("IO module '%s' status is '%s'", $instance, $object->{operationalstate}));
+            }
+        }
+    }
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/components/psu.pm b/storage/hp/eva/cli/mode/components/psu.pm
new file mode 100644
index 000000000..7afef9270
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/psu.pm
@@ -0,0 +1,146 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::psu;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls diskshelf full xml'} = 1;
+    $self->{ssu_commands}->{'ls controller full xml'} = 1;
+}
+
+sub psu_ctrl {
+    my ($self) = @_;
+    
+    # <object>
+    #    <objecttype>controller</objecttype>
+    #    <objectname>\Hardware\Rack 1\Controller Enclosure 7\Controller B</objectname>
+    #     <powersources>
+    #        <powerlevel>12.32</powerlevel>
+    #        <source>
+    #            <type>powersupply0</type>
+    #            <state>good</state>
+    #        </source>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'controller');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        foreach my $result (@{$object->{powersources}->{source}}) {
+            next if ($result->{type} eq '');
+            my $instance = $object->{objectname} . '/' . $result->{type};
+
+            next if ($self->check_filter(section => 'psu', instance => $instance));
+            next if ($result->{state} =~ /notinstalled/i &&
+                     $self->absent_problem(section => 'psu', instance => $instance));
+
+            $self->{components}->{psu}->{total}++;
+            
+            $self->{output}->output_add(long_msg => sprintf("power supply '%s' status is '%s' [instance = %s]",
+                                        $instance, $result->{state}, $instance, 
+                                        ));
+            
+            my $exit = $self->get_severity(label => 'default', section => 'psu', value => $result->{state});
+            if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Power supply '%s' status is '%s'", $instance, $result->{state}));
+            }
+        }
+    }
+}
+
+sub psu_diskshelf {
+    my ($self) = @_;
+        
+    # <object>
+    #    <objecttype>diskshelf</objecttype>
+    #    <objectname>\Hardware\Rack 1\Disk Enclosure 3</objectname>
+    #    <powersupplies>
+    #        <powersupply>
+    #          <name>powersupply1</name>
+    #          <operationalstate>good</operationalstate>
+    #          <failurepredicted>No</failurepredicted>
+    #          <vdcoutputs>
+    #            <vdcoutput>
+    #              <type>vdc5output</type>
+    #              <voltage>5.5</voltage>
+    #              <current>6.7</current>
+    #            </vdcoutput>
+    #            <vdcoutput>
+    #              <type>vdc12output</type>
+    #              <voltage>12.5</voltage>
+    #              <current>4.1</current>
+    #            </vdcoutput>
+    #          </vdcoutputs>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'diskshelf');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        foreach my $result (@{$object->{powersupplies}->{powersupply}}) {
+            my $instance = $object->{objectname} . '/' . $result->{name};
+            
+            next if ($self->check_filter(section => 'psu', instance => $instance));
+            next if ($result->{operationalstate} =~ /notinstalled/i &&
+                     $self->absent_problem(section => 'psu', instance => $instance));
+
+            $self->{components}->{psu}->{total}++;
+            
+            $self->{output}->output_add(long_msg => sprintf("power suuply '%s' status is '%s' [instance = %s]",
+                                        $instance, $result->{operationalstate}, $instance, 
+                                        ));
+            
+            my $exit = $self->get_severity(label => 'default', section => 'psu', value => $result->{operationalstate});
+            if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Power supply '%s' status is '%s'", $instance, $result->{operationalstate}));
+            }
+            
+            foreach my $voltage (@{$result->{vdcoutputs}->{vdcoutput}}) {
+                next if ($voltage->{current} !~ /[0-9]/);
+                my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'psu', instance => $instance . '/' . $voltage->{type}, value => $voltage->{current});        
+                if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) {
+                    $self->{output}->output_add(severity => $exit2,
+                                                short_msg => sprintf("Power supply '%s' is %s V", $instance, $voltage->{current}));
+                }
+                $self->{output}->perfdata_add(label => 'voltage_' . $instance . '/' . $voltage->{type}, unit => 'V', 
+                                              value => $voltage->{current},
+                                              warning => $warn,
+                                              critical => $crit,
+                                              );
+            }
+        }
+    }
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking power supplies");
+    $self->{components}->{psu} = {name => 'psus', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'psu'));
+    
+    psu_ctrl($self);
+    psu_diskshelf($self);
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/components/system.pm b/storage/hp/eva/cli/mode/components/system.pm
new file mode 100644
index 000000000..0e7b5f472
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/system.pm
@@ -0,0 +1,65 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::system;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls system full xml'} = 1;
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking systems");
+    $self->{components}->{system} = {name => 'systems', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'system'));
+    
+    # <object>
+    #    <objecttype>storagecell</objecttype>
+    #    <objectname>Backup_Wintel</objectname>
+    #    <operationalstate>attention</operationalstate>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'storagecell');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        my $instance = $object->{objectname};
+            
+        next if ($self->check_filter(section => 'system', instance => $instance));
+
+        $self->{components}->{system}->{total}++;
+        
+        $self->{output}->output_add(long_msg => sprintf("system '%s' status is '%s' [instance = %s]",
+                                    $instance, $object->{operationalstate}, $instance, 
+                                    ));
+        
+        my $exit = $self->get_severity(label => 'default', section => 'system', value => $object->{operationalstate});
+        if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+            $self->{output}->output_add(severity => $exit,
+                                        short_msg => sprintf("System '%s' status is '%s'", $instance, $object->{operationalstate}));
+        }
+    }
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/components/temperature.pm b/storage/hp/eva/cli/mode/components/temperature.pm
new file mode 100644
index 000000000..29ed9cafc
--- /dev/null
+++ b/storage/hp/eva/cli/mode/components/temperature.pm
@@ -0,0 +1,141 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::components::temperature;
+
+use strict;
+use warnings;
+
+sub load {
+    my ($self) = @_;
+    
+    $self->{ssu_commands}->{'ls diskshelf full xml'} = 1;
+    $self->{ssu_commands}->{'ls controller full xml'} = 1;
+}
+
+sub temp_ctrl {
+    my ($self) = @_;
+    
+    # <object>
+    #    <objecttype>controller</objecttype>
+    #    <objectname>\Hardware\Rack 1\Controller Enclosure 7\Controller B</objectname>
+    #    <sensors>
+    #        <sensor>
+    #            <name>i2csensor1</name>
+    #            <tempc>28</tempc>
+    #            <tempf>82</tempf>
+    #         </sensor>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'controller');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        foreach my $result (@{$object->{sensors}->{sensor}}) {
+            next if ($result->{name} eq '');
+            my $instance = $object->{objectname} . '/' . $result->{name};
+            
+            next if ($self->check_filter(section => 'temperature', instance => $instance));
+
+            $self->{components}->{temperature}->{total}++;
+            
+            $self->{output}->output_add(long_msg => sprintf("temperature '%s' is %s C [instance = %s]",
+                                        $instance, $result->{tempc}, $instance, 
+                                        ));
+            
+            next if ($result->{tempc} !~ /[0-9]/);
+            my ($exit, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{tempc});        
+            if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Temperature '%s' is %s C", $instance, $result->{tempc}));
+            }
+            $self->{output}->perfdata_add(label => 'temperature_' . $instance, unit => 'C', 
+                                          value => $result->{tempc},
+                                          warning => $warn,
+                                          critical => $crit,
+                                          );
+        }
+    }
+}
+
+sub temp_diskshelf {
+    my ($self) = @_;
+        
+    # <object>
+    #    <objecttype>diskshelf</objecttype>
+    #    <objectname>\Hardware\Rack 1\Disk Enclosure 3</objectname>
+    #    <cooling>
+    #        <sensors>
+    #            <sensor>
+    #                <name>ps1</name>
+    #                <tempf>91.4</tempf>
+    #                <tempc>33.0</tempc>
+    #                <operationalstate>good</operationalstate>
+    #                <tempalarmstatus>no_alarm</tempalarmstatus>
+    #            </sensor>
+    foreach my $object (@{$self->{xml_result}->{object}}) {
+        next if ($object->{objecttype} ne 'diskshelf');
+        
+        $object->{objectname} =~ s/\\/\//g;
+        foreach my $result (@{$object->{cooling}->{sensors}->{sensor}}) {
+            next if ($result->{name} eq '');
+            my $instance = $object->{objectname} . '/' . $result->{name};
+
+            next if ($self->check_filter(section => 'temperature', instance => $instance));
+            next if ($result->{operationalstate} =~ /notinstalled/i &&
+                     $self->absent_problem(section => 'temperature', instance => $instance));
+
+            $self->{components}->{temperature}->{total}++;
+            
+            $self->{output}->output_add(long_msg => sprintf("temperature '%s' status is '%s' [instance = %s]",
+                                        $instance, $result->{operationalstate}, $instance, 
+                                        ));
+            
+            my $exit = $self->get_severity(label => 'default', section => 'temperature', value => $result->{operationalstate});
+            if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit,
+                                            short_msg => sprintf("Temperature '%s' status is '%s'", $instance, $result->{operationalstate}));
+            }
+            
+            next if ($result->{tempc} !~ /[0-9]/);
+            my ($exit2, $warn, $crit, $checked) = $self->get_severity_numeric(section => 'temperature', instance => $instance, value => $result->{tempc});        
+            if (!$self->{output}->is_status(value => $exit2, compare => 'ok', litteral => 1)) {
+                $self->{output}->output_add(severity => $exit2,
+                                            short_msg => sprintf("Temperature '%s' is %s C", $instance, $result->{tempc}));
+            }
+            $self->{output}->perfdata_add(label => 'temperature_' . $instance, unit => 'C', 
+                                          value => $result->{tempc},
+                                          warning => $warn,
+                                          critical => $crit,
+                                          );
+        }
+    }
+}
+
+sub check {
+    my ($self) = @_;
+
+    $self->{output}->output_add(long_msg => "Checking temperatures");
+    $self->{components}->{temperature} = {name => 'temperatures', total => 0, skip => 0};
+    return if ($self->check_filter(section => 'temperature'));
+    
+    temp_ctrl($self);
+    temp_diskshelf($self);
+}
+
+1;
diff --git a/storage/hp/eva/cli/mode/hardware.pm b/storage/hp/eva/cli/mode/hardware.pm
new file mode 100644
index 000000000..b84a3526c
--- /dev/null
+++ b/storage/hp/eva/cli/mode/hardware.pm
@@ -0,0 +1,120 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::mode::hardware;
+
+use base qw(centreon::plugins::templates::hardware);
+
+use strict;
+use warnings;
+
+sub set_system {
+    my ($self, %options) = @_;
+    
+    $self->{regexp_threshold_overload_check_section_option} = 
+        '^(fan|temperature|system|disk|diskgrp|psu|battery|iomodule)$';
+    $self->{regexp_threshold_numeric_check_section_option} = '^(fan|temperature|psu)$';
+    
+    $self->{cb_hook2} = 'api_execute';
+    
+    $self->{thresholds} = {
+        default => [
+            ['^good$', 'OK'],
+            ['notinstalled', 'OK'],
+            ['^normal$', 'OK'],
+            ['unsupported', 'OK'],
+            ['attention', 'WARNING'],
+            ['.*', 'CRITICAL'],
+        ],
+    };
+    
+    $self->{components_path} = 'storage::hp::eva::cli::mode::components';
+    $self->{components_module} = ['fan', 'temperature', 'system', 'disk', 'diskgrp', 'psu', 'battery', 'iomodule'];
+}
+
+sub api_execute {
+    my ($self, %options) = @_;
+    
+    $self->{xml_result} = $options{custom}->ssu_execute(commands => $self->{ssu_commands});
+}
+
+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 =>
+                                {
+                                });
+
+    $self->{ssu_commands} = {};
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 MODE
+
+Check hardware.
+
+=over 8
+
+=item B<--component>
+
+Which component to check (Default: '.*').
+Can be: 'fan'.
+
+=item B<--filter>
+
+Exclude some parts (comma seperated list) (Example: --filter=temperature --filter=fan)
+Can also exclude specific instance: --filter="fan,Fan Block 1"
+
+=item B<--absent-problem>
+
+Return an error if an entity is not 'present' (default is skipping)
+Can be specific or global: --absent-problem="fan,Fan Block 1"
+
+=item B<--no-component>
+
+Return an error if no compenents are checked.
+If total (with skipped) is 0. (Default: 'critical' returns).
+
+=item B<--threshold-overload>
+
+Set to overload default threshold values (syntax: section,[instance,]status,regexp)
+It used before default thresholds (order stays).
+Example: --threshold-overload='fan,OK,degraded'
+
+=item B<--warning>
+
+Set warning threshold for 'temperature', 'fan' (syntax: type,regexp,threshold)
+Example: --warning='temperature,.*,30'
+
+=item B<--critical>
+
+Set critical threshold for 'temperature', 'fan' (syntax: type,regexp,threshold)
+Example: --critical='temperature,.*,50'
+
+=back
+
+=cut
diff --git a/storage/hp/eva/cli/plugin.pm b/storage/hp/eva/cli/plugin.pm
new file mode 100644
index 000000000..850c91c0c
--- /dev/null
+++ b/storage/hp/eva/cli/plugin.pm
@@ -0,0 +1,53 @@
+#
+# Copyright 2017 Centreon (http://www.centreon.com/)
+#
+# Centreon is a full-fledged industry-strength solution that meets
+# the needs in IT infrastructure and application monitoring for
+# service performance.
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+package storage::hp::eva::cli::plugin;
+
+use strict;
+use warnings;
+use base qw(centreon::plugins::script_custom);
+
+sub new {
+    my ($class, %options) = @_;
+    my $self = $class->SUPER::new(package => __PACKAGE__, %options);
+    bless $self, $class;
+
+    $self->{version} = '0.1';
+    %{$self->{modes}} = (
+                         'hardware'  => 'storage::hp::eva::cli::mode::hardware',
+                        );
+    $self->{custom_modes}{api} = 'storage::hp::eva::cli::custom::api';
+    
+    return $self;
+}
+
+1;
+
+__END__
+
+=head1 PLUGIN DESCRIPTION
+
+Check HP EVA Storage.
+
+=over 8
+
+=back
+
+=cut