VMPerl 을 사용해서 Virtual Machine에 device connect하기에 대한 질문 입니다.

#!/usr/bin/perl -w
 
use VMware::VmPerl;
use VMware::VmPerl::VM;
use VMware::VmPerl::ConnectParams;
use strict;
 
# Retrieves a pre-defined constant value.
sub vm_constant {
  my $constant_str = shift;
  return VMware::VmPerl::constant ($constant_str, 0);
}
 
if (@ARGV < 1) {
  print "Usage $0: <path_to_config_file> [<server> <user> <password>]\n";
  exit(1);
}
 
# Read in parameters.
my ($cfg_path, $server_name, $user, $passwd) = @ARGV;
 
# Use the default port of 902. Change this if your port is different.
my $port = 904;
 
my $connect_params = VMware::VmPerl::ConnectParams::new($server_name,$port,$user,$passwd);
my $vm = VMware::VmPerl::VM::new();
 
if (!$vm->connect($connect_params, $cfg_path)) {
  my ($error_number, $error_string) = $vm->get_last_error();
  die "Could not connect to vm: Error $error_number: $error_string \n";
}
 
$vm->start();
if(!$vm->set_config("ide1:0.deviceType","cdrom-image"))
{
  my ($error_number, $error_string) = $vm->get_last_error();
  die "Could not set deviceType : Error $error_number: $error_string \n";
}
 
if(!$vm->set_config("ide1:0.fileName","/root/FC4-i386-DVD.iso"))
{
  my ($error_number, $error_string) = $vm->get_last_error();
  die "Could not set fileName : Error $error_number: $error_string \n";
}
 
if(!$vm->connect_device("ide1:0"))
{
  my ($error_number, $error_string) = $vm->get_last_error();
  die "Could not connect device ide1:0 : Error $error_number: $error_string \n";
}
 
if(!$vm->disconnect_device("ide1:0"))
{
  my ($error_number, $error_string) = $vm->get_last_error();
  die "Could not disconnect cdrom : Error $error_number: $error_string \n";
}
 
$vm->stop();
 
# Destroys the virtual machine object, thus disconnecting from the virtual machine.
undef $vm;