MR-Z Tracker

Re: Moving vNIC on existing VM to new DVS portgroup

MR-Z — Wed, 24 Aug 2016 05:54:25 GMT

Assuming new portgroup on the same vDS, this works for me. (let me know if this assumption is incorrect so I can look further into this...):

First identify your network adapter as $adpater and your new port group is $pg...Afterward:

my $dvsUUID = $adapter->backing->port->{'switchUuid'};
my $network = Vim::find_entity_views(view_type => "Network", properties => ['name'], );
foreach(@$network) { $pgKey = $_->{'mo_ref'}->{'value'} if ($pg eq $_->name);}
my $port = new DistributedVirtualSwitchPortConnection( portgroupKey=>$pgKey, switchUuid=>$dvsUUID,);

my $backing = new VirtualEthernetCardDistributedVirtualPortBackingInfo(port => $port);
$adapter->backing($backing);

my $devspec = VirtualDeviceConfigSpec->new(device => $adapter,operation => VirtualDeviceConfigSpecOperation->new('edit'));

my $pgChangespec = VirtualMachineConfigSpec->new(deviceChange => [ $devspec ] );
$vm_view->ReconfigVM(spec => $pgChangespec);

Re: Newbie question Regarding Opts::validate()

MR-Z — Fri, 08 Jul 2016 21:01:40 GMT

I believe the authentication process does not occur until connect() time. Wrong credential should not have caused your connection to fail at the validation time.

If you are managing sessions to multiple servers, you could use a different SDK routine to do that. For example, assume your VCs are in a list of @VC and you can keep all the connections via a hash %VIM, like this:

foreach my $vc (@VC) {

$VIM{$vc} = Vim->new(service_url => "https://$vc/sdk");

$VIM{$vc}->login(user_name => $username, password => $password);

print color('green') . $vc . color('reset') . " ";

}

foreach my $vc (@VC) {

$VIM{$vc} = Vim->new(service_url => "https://$vc/sdk");

$VIM{$vc}->login(user_name => $username, password => $password);

}

You can also monitor the VIM connection and handle potential failure there. To do anything with that connection, such as find_entity_view():

my $vm = $VIM{$vc}->find_entity_view(view_type=>'VirtualMachine');

Re: Trying to return the naa.XXX value for the datatores of a VM

MR-Z — Fri, 17 Jun 2016 04:37:33 GMT

Assuming your VM has multiple vmdks and they could come from different datastore...Loop through your vmdks and the naa ID can be extracted like this:

# gather all your vmdks
my $devices = $vm->config->hardware->device;
foreach (@$devices) {
if($_->isa('VirtualDisk')) {push (@vmdks, $_);
}

foreach (@vmdks) {
my $ds = Vim::get_view(mo_ref=>$_->backing->datastore, properties => ['info','summary']);
if ($ds->summary->type eq 'VMFS') {
$naa = ${$ds->info->vmfs->extent}[0]->diskName;

# try to get the real naa if there is rdm involved here. lunUuid is a sure sign
($naa = $_->backing->lunUuid) =~ s/[0-9a-z]{10}(.*)[0-9a-z]{12}/naa.$1/ if defined $_->backing->{'lunUuid'};
}
}

Re: Deleting a Folder with Perl SDK

MR-Z — Thu, 10 Dec 2015 00:11:53 GMT

I re-read your question and doubt that my code will help in that regard. It deals with VM container/folder at the VC object level, not a directory on a datastore.

Re: Deleting a Folder with Perl SDK

MR-Z — Wed, 09 Dec 2015 23:47:20 GMT

Try this:

my $folder = Vim::get_view(mo_ref=> $vm->parent);

unless ($folder->childEntity) {

print "** Cleaning up the vm container folder.\n";

$folder->Destroy_Task();

}

Re: Transport zones associated with nonexistent logical switches

MR-Z — Tue, 16 Jun 2015 04:39:21 GMT

I did. I basically go this back (same as if you query the virtualwire from within the vdnscope context)...

<?xml version="1.0" encoding="UTF-8"?>

</pagingInfo>

</dataPage>

</virtualWires>

Re: Transport zones associated with nonexistent logical switches

MR-Z — Tue, 16 Jun 2015 00:19:45 GMT

Thanks for confirming. I was able to resolve my issue today. Turned out that I did have some logical switches in "discarded state" which the UI does not list. Getting the status of the virtual wires requires to work with support, but you can also query them brute-force like this:

GET https://nsx-manager-IP/api/2.0/vdn/virtualwires/virtualwire-1

GET https://nsx-manager-IP/api/2.0/vdn/virtualwires/virtualwire-2

GET https://nsx-manager-IP/api/2.0/vdn/virtualwires/virtualwire-3

etc.

If the virtualwire does not exist, you would get "virtualwire-1' could not be found.

Say when you query 'virtualwire-3' and it returns a valid virtual wire, you can then delete it:

DELETE https://nsx-manager-ip/api/2.0/vdn/virtualwires/virtualwire-3

Re: Transport zones associated with nonexistent logical switches

MR-Z — Sat, 13 Jun 2015 22:32:09 GMT

Did you resolve your issue?

I ran into similar issue recently and am struggling to figure out how to get out of this.

Re: --server option?

MR-Z — Fri, 31 Jan 2014 20:15:48 GMT

Thanks. I have some default server already configured in .visdkrc, but relying on that is cumbersome, especially since I am trying to use different servers based on a specific user input.

After reading through some subs in VILib.pm, look like Opts::set_option('server' => $server) is all I need:

# validate options, and connect to the server

Opts::add_options(%opts);

Opts::parse();

Opts::validate();

Opts::set_option('server' => 'XXXX');

Util::connect();

--server option?

MR-Z — Fri, 31 Jan 2014 00:49:51 GMT

I have a number of virtual servers and need to take an educated guess in my script which server to connect to (based on the vm name for example). This way the user who runs the script does not need to provide --server argument.

What variable should I use to set the server name? $VI_SERVER does not seem to be it...

Re: vSphere 5.5 VM console access errors / MKS connection terminated by server & MKS malformed repsonse from server

MR-Z — Wed, 15 Jan 2014 19:06:19 GMT

It should be called hpHelper, living under /opt/hp/hp-ams.

Re: vSphere 5.5 VM console access errors / MKS connection terminated by server & MKS malformed repsonse from server

MR-Z — Tue, 10 Dec 2013 00:19:51 GMT

Indeed the ams service is the culprit. A quick restart of the service temporarily relieves the problem. We are running on BL460 Gen8 as well.

Re: create directory on a datastore...

MR-Z — Thu, 21 Nov 2013 05:33:42 GMT

Got it. Thanks William.

Re: create directory on a datastore...

MR-Z — Wed, 20 Nov 2013 23:44:34 GMT

Thanks you very much, Stumpr!

I did have to use the fileManager call, instead of the datastorenamespacemanager. Thanks for pointing out the different application of those two API calls. Wondering why the datastoreNamespacemanager only supports the creation on datastore that does NOT support top level directory creation?

Re: Changing VMHost name from powercli

MR-Z — Wed, 20 Nov 2013 00:50:04 GMT

Great tips! thanks for sharing.

I am trying to avoid the remove/re-add process as that i think historical data are lost on a host when remove and re-add. And some custom fileds and custom values on the host might be wiped out as well...

There must be a way to just update the hostname displayed under hosts and cluster views? (After changing the hostname on the esxi host and dns first of course).

create directory on a datastore...

MR-Z — Tue, 19 Nov 2013 07:59:38 GMT

Anyone has a sample code on how to use the datastoreNamespaceManager API to create a directory on a datastore?

Re: SOAP error with VMware-vSphere-Perl-SDK-5.5.0

MR-Z — Sat, 09 Nov 2013 08:33:22 GMT

Simply installing libwww-perl version 5.837 resolved my issue. The other versions don't work for me.

cpan[3]> i /libwww-perl/

Distribution GAAS/libwww-perl-5.837.tar.gz

Distribution GAAS/libwww-perl-6.01.tar.gz

Distribution GAAS/libwww-perl-6.05.tar.gz

Author LWWWP ("The libwww-perl mailing list" <libwww@perl.org>)

4 items found

cpan[4]> install GAAS/libwww-perl-5.837.tar.gz

Running make for G/GA/GAAS/libwww-perl-5.837.tar.gz

Checksum for /root/.cpan/sources/authors/id/G/GA/GAAS/libwww-perl-5.837.tar.gz ok

CPAN.pm: Going to build G/GA/GAAS/libwww-perl-5.837.tar.gz

Re: SSL_verify_mode of SSL_VERIFY_NONE for client is depreciated!

MR-Z — Sat, 09 Nov 2013 08:25:49 GMT

works for me!

Re: Get cloud.uuid optionvalue from extra config without iterating through the array?

MR-Z — Fri, 04 Oct 2013 17:09:20 GMT

Thanks stumpr. Understood. Just wanted to see if anything magic out there...

Get cloud.uuid optionvalue from extra config without iterating through the array?

MR-Z — Thu, 26 Sep 2013 23:17:06 GMT

I need to get the cloud.uuid (or any other optionValue for that matter) from the extraConfig data object. Is there a way to get to the value of a specific key without having to iterating through the array? As this is not a hash, attempt at getting to the value with this fails miserably:

$extra->{'could.uuid'}...

Here is an iteration approach that works.

my $extra = $vm->config->extraConfig;

foreach (@$extra) {

print $_->value if ($_->key =~ /cloud.uuid/);

}

Thanks!