Simple Perl code to get VM parent host

Aristizabal — Wed, 15 Feb 2017 22:05:58 GMT

Hello,

I am struggling with the object usage in perl; my goal is to pass a VM name as parameter and return some information of the ESXi parent host:

use strict;

use Data::Dumper;

use VMware::VIRuntime;

# Auth options

Opts::set_option('server', 'vCenter');

Opts::set_option('username', 'user1l');

Opts::set_option('password', 'password1');

print "Connecting \n";

Util::connect();

print "Connected \n";

my $VMView = Vim::find_entity_view(

'view_type' => 'VirtualMachine',

'filter' => { 'name' => 'eduv0002',}

);

print $VMView->summary->config->name,"\n";

print $VMView->runtime->host,"\n";

my $HostRef = $VMView->runtime->host;

print $HostRef;

Util::disconnect();

But the output is:

Connecting

Connected

vm-test

ManagedObjectReference=HASH(0x2435648)

Undefined subroutine &ManagedObjectReference::name called at ./test.pl line 24

So it looks like I can get the host with no issues but I don't know how to access its properties having a Managed Object Reference.

Any help is appreciated, thank you.

Juan.

Re: Simple Perl code to get VM parent host

stumpr — Wed, 15 Feb 2017 22:31:07 GMT

You have a MOREF from the runtime.host property, you need another get_view call on it.

my $host = Vim::get_view(mo_ref => $HostRef);

print $host->{name} . "\n";

Re: Simple Perl code to get VM parent host

Aristizabal — Wed, 15 Feb 2017 22:44:08 GMT

Perfect, thanks for the quick reply.

topic Re: Simple Perl code to get VM parent host in vSphere SDK for Perl Discussions

Simple Perl code to get VM parent host

use strict;

use Data::Dumper;

use VMware::VIRuntime;

# Auth options

Opts::set_option('server', 'vCenter');

Opts::set_option('username', 'user1l');

Opts::set_option('password', 'password1');

print "Connecting \n";

Util::connect();

print "Connected \n";

my $VMView = Vim::find_entity_view(

'view_type' => 'VirtualMachine',

'filter' => { 'name' => 'eduv0002',}

);

print $VMView->summary->config->name,"\n";

print $VMView->runtime->host,"\n";

my $HostRef = $VMView->runtime->host;

print $HostRef;

Util::disconnect();

Re: Simple Perl code to get VM parent host

Re: Simple Perl code to get VM parent host