变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_信息 | 文本型 | | |
局_数组 | 文本型 | | 0 |
局_计次 | 整数型 | | |
清除数组 (虚拟机列表_
)_取控制台信息 (_安装目录,
“ -T ws list”, , , 局_信息
)局_信息 =
编码_utf8到gb2312 (局_信息
)局_数组 =
分割文本 (局_信息,
#换行符, )
计次循环首 (取数组成员数 (局_数组
), 局_计次
)
如果真 (局_计次 ≠ 1
且 局_数组
[局_计次
] ≠
“”)


局_数组
[局_计次
] =
子文本替换 (局_数组
[局_计次
],
字符 (13
),
“”, , ,
真)
加入成员 (虚拟机列表_, 局_数组
[局_计次
])

计次循环尾 ()返回 (取数组成员数 (虚拟机列表_
))
局_快照 = 快照名称_
如果真 (快照名称_ =
“”)
局_快照 =
文件_取文件名 (目标地址_
)
创建快照 (母盘地址_, 局_快照
)
局_名称 = 克隆名称_
如果真 (快照名称_ =
“”) 
局_名称 =
文件_取文件名 (目标地址_
)
_取控制台信息 (_安装目录,
“ -T ws clone ” +
#引号 + 母盘地址_ +
#引号 +
“ ” + 目标地址_ +
“ linked -snapshot=” + 局_快照 +
“ -cloneName=” + 局_名称
)