一段可代替"esxcfg-vswitch -l"的代码

Switch Name Num Ports Used Ports Configured Ports MTU Uplinks
vSwitch1 64 18 64 1500 vmnic1

PortGroup Name VLAN ID Used Ports Uplinks
Prod_1 501 5 vmnic1
Prod_2 502 2 vmnic1
Prod_3 503 2 vmnic1
Prod_4 504 3 vmnic1
Prod_5 505 6 vmnic1

--root@esxhost5--#

读读以下Perl 可使你轻松拥有自己控制代码。

my $portGroups = $vSwitch->portgroup;
                        foreach my $port (@$portGroups) {
                                my $pg = FindPortGroupbyKey ($netMgr, $vSwitch->key, $port);
                                next unless (defined $pg);
                                my $usedPorts = (defined $pg->port) ? $#{$pg->port} + 1 : 0;