Monitoring-Portal

Source code

#!/usr/bin/perl -w

use strict;
use warnings;
use VMware::VIRuntime;
use VMware::VILib;



#if ($#ARGV < 2) {
# print "usage:". $ARGV[0]; ." hostname --config vmaware_config\n";
# exit;
#}

my %opts = (
    	hostname => {
    	type => "=s",
    	help => "hostname like host1",
    	required => 1,
	},
);
Opts::add_options(%opts);

Opts::parse();
Opts::validate();
Util::connect();

# Obtain all inventory objects of the specified type
my $entity_type = 'VirtualMachine';

my $host = Opts::get_option('hostname');

my $entity_views = Vim::find_entity_views(view_type => 'VirtualMachine',
filter => { 'summary.config.name' => qr/.*$host.*/i,
'runtime.powerState' => 'poweredOn' });


# Process the findings and output to the console

foreach my $entity_view (@$entity_views) {
  	my $entity_name = $entity_view->name;
#  	Util::trace(0, "\n\nFound $entity_type: $entity_name\n");


            	my $hostview = Vim::get_view( mo_ref=>$entity_view->summary->runtime->host );
            	print $entity_view->name . " Runs on: " .$hostview->name. "\n";
    	if ($entity_view->runtime->powerState->val eq 'poweredOn') {

#           	print "\nVirtual machine " . $entity_view->name . " is running.\n";
            	# Should be the Server

    	#   	print "Guest " . $entity_view->summary->guest->hostName . "\n";
            	print "OS " . $entity_view->summary->config->guestFullName . "\n";
            	print "CPU " . $entity_view->summary->config->numCpu ."\n";
            	print "Mem " . $entity_view->summary->config->memorySizeMB . "\n";
            	print "Disk " . $entity_view->summary->config->numVirtualDisks . "\n";
            	print "Network " . $entity_view->summary->config->numEthernetCards . "\n";
            	print "Annotation " . $entity_view->summary->config->annotation . "\n";
            	Util::disconnect();
             	exit (0);

     	} else {
             	print "\nVirtual machine " . $entity_view->name . " is not running.\n";
             	Util::disconnect();
             	exit (2);
     	}
 }
 Util::disconnect();
 print "Host: " . $host ." not found\n";

 exit (127);

Source code

[root@nagios libexec]# ./check_vm_location.pl  --config check_vmware_config_vc4 --hostname wsus
wsus Runs on: vm36.mydomian
OS Microsoft Windows Server 2003, Standard Edition (32-Bit)
CPU 2
Mem 2560
Disk 2
Network 1
Annotation vRanger Pro Backup: Type [Full] Result [Success] Time [08.08.2012 16:01:51] Repository [nas13 MSA7]
 Windows 2003, SP2, R2
-=# Windows Update Server #=-
Produktiv, kann aber jederzeit offline genommen werden

Source code

define host {
 host_name vm1
 parents esx1,esx2,esx2
}