#!/usr/bin/perl -w
#
# This script prints names of all VM's

use strict;
use warnings;

use VMware::VIM2Runtime;
use VMware::VILib;

# read/validate options and connect to the server
Opts::parse();
Opts::validate();
Util::connect();

# get views of all VM's
my $vm_views =
    Vim::find_entity_views(view_type => 'VirtualMachine',
                           filter => { 'config.guestFullName' => '.*' });

foreach (@$vm_views) {      
   print $_->name . ": " . $_->config->guestFullName . "\n";
}

# disconnect from the server
Util::disconnect();