Download VMware Perl API

Using Sample Perl Scripts
} else {
push(@INC,
("/usr/lib/perl5/site_perl/5.005/i386-linux",
"/usr/lib/perl5/5.00503",
"."));
}
}
use
use
use
use
VMware::Control;
VMware::Control::Server;
VMware::Control::VM;
strict;
if (@ARGV != 4) {
print "Usage $0: server user password path_to_config_file\n";
exit(1);
}
my ($serverName, $user, $passwd, $cfg_path) = @ARGV;
my $port = 902;
my $server = VMware::Control::Server::new($serverName,$port,$user,$passwd);
if (!$server->connect()) {
my ($errorNumber, $errorString) = $server->get_last_error();
die "Cannot connect to server: Error $errorNumber: $errorString\n";
}
my $vm = VMware::Control::VM::new($server, $cfg_path);
if (!$vm->connect()) {
my ($errorNumber, $errorString) = $vm->get_last_error();
die "Cannot connect to vm: Error $errorNumber: $errorString\n";
}
# Gets the Power status of the virtual machine to determine if it is running
my $curState = $vm->get("Status.power");
if (!$curState) {
my ($errorNumber, $errorString) = $vm->get_last_error();
die "Error $errorNumber: $errorString\n";
}
print "$cfg_path is currently $curState\n";
$vm->disconnect();
$server->disconnect();
www.vmware.com
37