my $vc_ip      = ……;
my $vc_user    = ……;
my $vc_pass    = ……;
my $vCenterURL = 'https://' . $vc_ip . '/sdk';
Util::connect( $vCenterURL, $vc_user, $vc_pass );

my $vm_view = Vim::find_entity_view(
	view_type  => 'VirtualMachine',
	filter      => {'name' => ……},
	properties  => ['name']
);

# 查找类型为虚拟机
# 通过名字查找
# 此项非必须，但是建议填写，如果不填写将会得到完整的对象，
而实际上对象中的大量属性都用不到，只会大量增加查询的时间。

my $host_view = Vim::find_entity_view(
	view_type  => 'HostSystem',
	filter     => { 'name' => …… },
	properties => [ 'name', 'parent', 'datastore' ]
);
my $ds_views = Vim::get_views(
	mo_ref_array => $host_view->datastore,
	properties   => ['name']
);
my $ds_view;
foreach (@$ds_views) {
	if ( …… eq $_->name ) {
		$ds_view = $_;
		last;
	}
}
my $com_res_view = Vim::get_view(
	mo_ref   => $host_view->parent,
	properties => [ 'name', 'resourcePool' ]
);
my $relocate_spec = VirtualMachineRelocateSpec->new(
	datastore => $ds_view->{mo_ref},
	host => $host_view->{mo_ref},
	pool => $com_res_view->resourcePool
);
# 查找类型为主机
# 通过名字查找
# 只需要名字，父类和存储三个属性
# 通过对象的引用拿到对象本身
# 主机的存储属性为该存储的对象的引用
# 只需要存储的名字即可
# 由于SDK的查询方法只支持有限的六种类型对象，所以这里只能手动编写逻辑获得名字匹配的存储对象
# 同理，得到主机的父类对象，主要是通过主机额父类得到主机所在的资源池对象，
这里可以将新生成的虚拟机部署在主机所在的同一个资源池内，也可以另外指定资源池

# 构建整个虚拟机构建位置信息对象

my $extra_disk_size = ……;
my $controller;
my $devices = $vm_view->config->hardware->device;
foreach my $device (@$devices) {
my $class = ref $device;
if ( $class->isa('VirtualLsiLogicController') || $class->isa('VirtualLsiLogicSASController') 
|| $class->isa('ParaVirtualSCSIController') || $class->isa('VirtualSCSIController') ) {
	$controller = $device;
}
}
my $controllerKey = $controller->key;
my $unitNumber = $#{$controller->device}+1;

# Generate filename
my $vm_name = $vm_view->name;
my $name = "$vm_name/${vm_name}_ext";
my $vm_path = $vm_view->config->files->vmPathName;
$vm_path =~ /^(\[.*\])/;
my $file_name = "$1/$name.vmdk";

# backing info
my $disk_backing_info = VirtualDiskFlatVer2BackingInfo->new(
	diskMode => 'persistent',
	fileName => $file_name
);

# Disk for Disk Spec
my $disk = VirtualDisk->new(
	controllerKey => $controllerKey,
	unitNumber  => $unitNumber,
	key         => -1,
	backing      => $disk_backing_info,
	capacityInKB  => $extra_disk_size
);

# Get Device Spec
my $dev_spec = VirtualDeviceConfigSpec->new(
	operation => 	VirtualDeviceConfigSpecOperation
		->new('add'),
	device   => $disk,
	fileOperation => 	VirtualDeviceConfigSpecFileOperation
		->new('create')
);
my $config_spec = VirtualMachineConfigSpec->new(
	name => ……,
	numCPUs => ……,
	memoryMB => ……,
	deviceChange => [$dev_spec]
);
# 新增硬盘的大小
# 控制器
# 得到虚拟服务器当前的设备列表
# 以下类型均为硬盘控制器
# 控制器标识符
# 生成新的设备序列号
# 生成新的硬盘文件的名字
# 配置硬盘模式
# persistent标识该硬盘为持久化硬盘，将会在快照中受到保护
# independent_persistent如果将模式设置为独立模式，则该硬盘变化不会记录进快照
# 构建硬盘对象
# 构建修改硬盘的操作对象
# 此处为新增硬盘操作
# 创建新的硬盘文件，如有需要也可以使用已有的硬盘文件
# 构建完整的性能配置对象
# 可选，新的虚拟服务器名字
# 可选，新的CPU数量
# 可选，新的内存大小（单位MB）
# 可选，其他设备变更（这里只修改了硬盘）

# globalIPSettings
my $customization_global_settings = CustomizationGlobalIPSettings->new(
	dnsServerList => $dns_server,
	dnsSuffixList => [$domain_name]
);
my $cust_fixname = CustomizationFixedName->new( name => $host_name );
my $cust_linuxprep = CustomizationLinuxPrep->new(
	domain     => $domain_name,
	hostName   => $cust_fixname,
	hwClockUTC => 'false',
	timeZone   => 'Asia/Shanghai'
);
my $customization_fixed_ip =
	CustomizationFixedIp->new( ipAddress => $ip_addr );
my $cust_ip_settings = CustomizationIPSettings->new(
	ip=> $customization_fixed_ip,
	dnsDomain  => $domain_name,
	gateway    => $gateway,
	subnetMask => $subnetMask
);
my $cust_adapter_mapping = CustomizationAdapterMapping->new( adapter => $cust_ip_settings );

# customization spec
my $customization_spec = CustomizationSpec->new(
	identity => $cust_linuxprep,
	globalIPSettings => $customization_global_settings,
	nicSettingMap  => [$cust_adapter_mapping]
);
# 全局网络设置
# 封装主机名对象
# 构建Linux自定义设置对象
# 构建用户自定义IP地址对象
# 用户自定义网络属性的其他参数
# 构建适配器
# 构建完整的自定义对象
# 必选，自定义设置信息
# 必选，全局网络设置信息
# 可选，自定义网络设置

$clone_spec = VirtualMachineCloneSpec->new(
	powerOn => 1,
	template => 0,
	location => $relocate_spec,
	customization => $customization_spec,
	config => $config_spec,
);
my $task = $vm_view->CloneVM_Task(
	folder => $vm_view->parent,
	name => $vm_name,
	spec => $clone_spec
);

my $task = $vm_view->ReconfigVM_Task(
	spec => $config_spec
);

my $task = $vm_view->CustomizeVM_Task(
	spec => $customization_spec
);
# 构建完成的克隆自定义对象
# 克隆完成后是否开机
# 克隆完成后新的虚拟机是否设置为模版
# 使用之前构建的位置信息
# 可选，使用之前构建的自定义参数配置
# 可选，使用之前构建的自定义性能配置
# 执行克隆操作
# 使用和模版相同的文件夹存放新虚拟机
# 设置新的虚拟机名字
# 使用之前构建完成的克隆自定义对象
# 除了在克隆的时候直接指定性能配置外也可以在任意时候重新配置虚拟机性能配置
# 除了在克隆的时候直接指定性能配置外也可以在任意时候重新调整自定义参数配置

Util::disconnect();

$vm_view->PowerOnVM_Task();
$vm_view->PowerOffVM_Task();
$vm_view->ShutdownGuest();
$vm_view->ResetVM_Task();
$vm_view->RebootGuest();
$vm_view->SuspendVM_Task();
$vm_view->StandbyGuest();
# 开机
# 关机，等同于拔电源
# 关机，从操作系统关机，需要安装VMTool
# 重启，等同于重启按钮
# 重启，由操作系统实现，需要安装VMTool
# 暂停虚拟机
# 待机，由操作系统实现，需要安装VMTool

$vm_view->CreateSnapshot_Task(
	name     => $ss_name,
	description => $desc,
	memory   => $memory,
	quiesce   => $quiesce
);
$ss_view->RemoveSnapshot_Task(
	removeChildren => 0
);
$vm_view->RemoveAllSnapshots_Task();
$ss_view->RenameSnapshot(
	name     => $ss_name,
	description => $desc
);
$ss_view->RevertToSnapshot_Task();
$vm_view->RevertToCurrentSnapshot_Task();
# 创建快照
# 快照名字
# 可选，快照描述
# 决定快照是否包括运行时内存状态
# 如果为ture会先将虚拟机暂停再做快照
# 由快照对象触发删除操作
# 决定是否将所有子快照全部删除
# 由虚拟机对象触发操作，删除全部快照
# 由快照对象触发，重命名快照
# 快照名字
# 可选，快照描述
# 由快照对象触发，恢复到该快照状态
# 由虚拟机对象触发，恢复到当前快照

$vm_view->Destroy_Task();
# 销毁选定的虚拟服务器对象

$task->info->state->val
$task->info->progress
$task->info->result
$task->info->reason
$task->info->cancelled
$task->info->cancelable
# 任务的当前状态，有四种可能的值，分别是success,running,queued,error
# 以0到100的整数描述任务进度情况
# 当任务状态为success时，保存任务返回值
# 当任务状态为error时，保存错误原因
# 标识任务是否是主动取消
# 标识进行中任务是否可以取消