Thanks a lot!!!!
I did some tests and almost everything works.
The only problem I encounter is with a VM that has two NICs with Distributed Virtual Switch:
The name of this VM is LABO-TEST-MACHINE, and this is the output of the perl scripts:
[...]
VM Name: LABMXXXXX
NIC type: VirtualE1000
nic 'Network adapter 1':
network portgroup: LANBACKUP_LABO
NIC type: VirtualE1000
NIC type: VirtualE1000
nic 'Network adapter 2':
network portgroup: HEARTBEAT_XXX
NIC type: VirtualE1000
VM Name: LABO-TEST-MACHINE
NIC type: Flexible
nic 'Network adapter 1':
network portgroup: LANBACKUP_LABO
NIC type: Flexible
NIC type: Flexible
Can't call method "type" on an undefined value at /usr/share/perl/5.10/VMware/VICommon.pm line 1026.
How you can see, i receive the error above, only when the script try to extract the Network Portgroup of that VM.
I think the code line with the problem is:
$pg = Vim::get_view(mo_ref => $pg_mo, properties => ['name']);
Instead with the Standard Virtual Switch, i didn't encounter problems.
Here's all new code:
my $datacenter = $DCFILTER;
my $clusterFilter = $CLFILTER ;
my $datacenter_view = Vim::find_entity_view(view_type => 'Datacenter', filter => { name => $datacenter });
my @values = split(/\|/, $clusterFilter);
foreach my $val (@values) {
my $cluster_view = Vim::find_entity_view(view_type => 'ClusterComputeResource', filter => { name => qr/$val/});
my $vm_views = Vim::find_entity_views(view_type => 'VirtualMachine', properties => ['name', 'config.hardware.device'], begin_entity => $cluster_view);
foreach (@$vm_views) {
print $_->name . "\n";
# $vm = $_->name;
my @devs = @{ $_->{'config.hardware.device'} };
my @net_devs = grep { $_->isa('VirtualEthernetCard') } @devs;
foreach my $nic ( @net_devs ) {
my ($name, $type, $network, $connect, $pg_mo, $pg);
# NIC type
if ($nic->isa('VirtualPCNet32')) {
$type = 'Flexible';
} else {
$type = ref $nic;
}
print " NIC type: $type\n";
$pg_mo = $nic->{'backing'}{'network'};
$pg = Vim::get_view(mo_ref => $pg_mo, properties => ['name']);
$network = $pg->{'name'};
# $connect = ( eval {$nic->{'connectable'}{'startConnected'} ) ? 1 : 0;
$name = $nic->{'deviceInfo'}{'label'};
print " nic '$name':\n";
# print " connect on power on: $connect\n";
print " network portgroup: $network\n";
print " NIC type: $type\n";
}
}
}
Util::disconnect();