Sergio81's Posts

Hi, now i use this code to  find the Portgroup name: my $portgroupKey = $nic->{backing}->{port}->{portgroupKey};                            my $dvsPortgroup = Vim::find_entity_view (                                  view_type => "DistributedVirtualPortgroup",                                  begin_entity => $datacenter_view,                                  properties => [ 'name', 'key', 'config.distributedVirtualSwitch' ],                                  filter => { 'key' => $portgroupKey }                            );   my $Portgroup_name = $dvsPortgroup->name; this work. and with this i can retrive the switch UUID: my $SwitchUuid = $nic->{backing}->{port}->{switchUuid}; it's look like: 90 2d 05 40 1e 9f ba 9b-ea fe 3d ec 93 21 a1 ba now i need to retrieve the DVSwitch real name, something like "dvs_TEST-DR"...can i use the UUID to find the associated DVS name, how? Maybe is there a better way? Thank You!!

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();