Hi William,
I just had a look at your perl script, which does basically the same as mine. The only difference is, that I'm trying to set the order of all devices, whereas you are just setting the first boot device.
When I'm using your script, it actually sets the first boot device, so that helps a little bit. However I would like to set the order of the following devices as well. Does that work for you?
I can see in my tests, that I'm able to change the position of the CDROM or hard disk in the boot order, but regardless what I'm doing, the network interface is always at the very end of the list.
Here is my script:
-----------------------
#!/usr/bin/perl
use strict;
use VMware::VIRuntime;
use Getopt::Long;
my %opts = ( vmname => { type => "=s",
help => "Name of virtual machine",
required => 1},
bootoption => { type => "=s",
help => "Boot order ('default', 'hdfirst')",
required => 1},
);
# parse options
Opts::add_options(%opts);
Opts::parse();
Opts::validate();
my $vmname = Opts::get_option('vmname');
my $bootoption = Opts::get_option('bootoption');
if ($bootoption ne 'default' and $bootoption ne 'hdfirst' and $bootoption ne 'unset')
{
print "Error. Bootoption has to be 'default', 'hdfirst' or 'unset'\n\n";
exit 1;
}
# connect to the server
Util::connect();
# do action
my $shortname = (split(/\./,$vmname,2))[0];
my $vm_view = Vim::find_entity_view(view_type => "VirtualMachine",
filter => { 'name' => qr/^$shortname/i });
if (defined $vm_view)
{
# get NIC, CDROM, DISK object
my $bootdevice = '';
my @boot_order_objects = ();
my $net_device = undef;
my $cdrom_device = undef;
my $disk_device = undef;
my $devices = $vm_view->config->hardware->device;
foreach my $device (@$devices)
{
#print $device->deviceInfo->label.' '.ref($device)."\n";
# first network adapter
if ($device->deviceInfo->label eq 'Network adapter 1')
{
print "Found network: ".ref($device)."\n";
$net_device = VirtualMachineBootOptionsBootableEthernetDevice->new( 'deviceKey' => ($device->key));
}
# first hard drive
if ($device->deviceInfo->label eq 'Hard disk 1')
{
print "Found first harddisk: ".ref($device)."\n";
$disk_device = VirtualMachineBootOptionsBootableDiskDevice->new( 'deviceKey' => ($device->key));
}
# first CDROM
if ($device->deviceInfo->label eq 'CD/DVD drive 1')
{
print "Found first CDROM: ".ref($device)."\n";
$cdrom_device = VirtualMachineBootOptionsBootableCdromDevice->new();
}
}
if ($bootoption eq 'default')
{
@boot_order_objects = ($cdrom_device,$net_device,$disk_device);
print "Setting bootorder: CDROM, network, hard disk\n";
}
elsif ($bootoption eq 'hdfirst')
{
@boot_order_objects = ($disk_device,$cdrom_device,$net_device);
print "Setting bootorder: Hard disk, CDROM, network\n";
}
else
{
print "Un-setting bootorder.\n";
}
my $bootOptions = VirtualMachineBootOptions->new(bootOrder => \@boot_order_objects);
my $configspec = VirtualMachineConfigSpec->new ( bootOptions => $bootOptions );
$vm_view->ReconfigVM_Task(spec => $configspec);
}
else
{
print "\nERROR. Virtual machine $vmname not found.\n\n";
Util::disconnect();
exit 1;
}
# disconnect
Util::disconnect();
exit 0;
------------------------
