#!/usr/bin/perl -w use VMware::VmPerl::Server; use VMware::VmPerl::ConnectParams; # connect to the server using all the default settings $server = VMware::VmPerl::Server::new(); $server->connect(VMware::VmPerl::ConnectParams::new()) or die "Could not connect to server: ", ($server->get_last_error())[1]; # get a list of virtual machines @vm_list = $server->registered_vm_names(); die "Could not get list of VMs from server: ", ($server->get_last_error())[1] unless @vm_list; # print them out print "$_\n" for @vm_list;
Example 1: enumerate_vms.pl lists all virtual machines.