Hi Ken,
Below is the altered version of your code snippet that illustrates the usage of VirtualMachineDiskDeviceInfo. Currently, I do not have the setup for the RDM thus I could not verify the execution of the code. But theoretically this code should work for you. The code would list down the Device Path for the RDM and the VMs that might be using the device for the Backing.
#!/usr/bin/perl -w
use strict;
use warnings;
use VMware::VIM2Runtime;
use VMware::VILib;
use VMware::VIRuntime
Opts::parse();
Opts::validate();
Util::connect();
my $hostview = Vim::find_entity_view(view_type => 'HostSystem');
display_scsi_luns($hostview);
Util::disconnect();
sub display_scsi_luns {
my ($hostview) = @_;
my $lun_counter = 0;
my @logicalunitlist;
if(defined $hostview->config->storageDevice->scsiLun) {
@logicalunitlist = @{$hostview->config->storageDevice->scsiLun};
}
foreach(@logicalunitlist) {
my $lunname = $_->canonicalName;
get_vms($hostview, $lunname);
}
}
sub get_vms {
my ($hostview, $canonicalname) = @_;
my $vms = $hostview->vm;
my $exist_flag = 0;
my $parent = Vim::get_view(mo_ref =>$hostview->parent);
if (defined $parent->environmentBrowser) {
my $envbrw = Vim::get_view(mo_ref =>$parent->environmentBrowser);
if (defined $envbrw) {
print "\n Retrieving information for " . $hostview->name . " host.\n";
my $confTgt = $envbrw->QueryConfigTarget(host=>$hostview);
if (defined $confTgt) {
if (defined $confTgt->scsiDisk) {
my $scsi = $confTgt->scsiDisk;
foreach (@$scsi) {
if (defined $_->disk) {
my $devicePath = $_->disk->devicePath;
print "Backing device Info: Device Path = " . $devicePath . "\n ";
}
if (defined $_->vm) {
print "Virtual Machines that are using this device are:\n";
foreach my $vm_list(@$_->vm) {
my $vms_view = Vim::get_view(mo_ref => $vm_list);
print $vms_view->config->name . "\n";
}
}
}
}
}
}
}
print "\nPrinting List of VMs on this host\n";
foreach(@$vms) {
my $vms_view = Vim::get_view(mo_ref => $_);
print $vms_view->config->name . "\n";
}
if($exist_flag eq 0) {
}
}
Hope the above helps.
~ Sidharth
