#!/usr/bin/perl -w

use strict;
use VMware::Vix::Simple;
use VMware::Vix::API::Constants;

use constant VMWARE_HOST => "xxx";
use constant VMWARE_USER => "xxx";
use constant VMWARE_PASS => "xxx";

my $host_handle = VIX_INVALID_HANDLE;
my $err;

print "Connecting to VMware server...\n";
($err, $host_handle) = HostConnect(VIX_API_VERSION, VIX_SERVICEPROVIDER_VMWARE_SERVER, VMWARE_HOST, 902,
VMWARE_USER, VMWARE_PASS, 0, VIX_INVALID_HANDLE);
die GetErrorText($err) unless $err == VIX_OK;

print "Successfully connected to VMware Server.\n";

my $vm_handle;
($err, $vm_handle) = VMOpen($host_handle, "/xxx/yyy.vmx");
die GetErrorText($err) unless $err == VIX_OK;
print "Opened VM '$xxx'.\n";

my $vmPowerState;
($err, $vmPowerState) = GetProperties($vm_handle, VIX_PROPERTY_VM_POWER_STATE, VIX_PROPERTY_VM_VMX_PATHNAME);
if($vmPowerState != VIX_POWERSTATE_POWERED_OFF) {
        print "\nERROR: xxx.\n";
        exit 1;
}