自动挂载服务器vhd,又一个 挂载 vhd 并分配指定盘符的 vbs

' 挂载 vhd，并分配盘符，

' 使用语法 ：vhd.vbs [vhdfile path]

' 调用 diskpart 并隐藏运行，不必生成 diskpart 脚本，通过 exec.stdout 方式获取 命令结果，进行分析，明确 分区编号，为其分配盘符。

On error resume next

'----------------隐藏运行代码-----------------------

set ws=createObject("wscript.shell")

hide= """" & WScript.scriptFullName  & """"

if WScript.Arguments.count=0  then

ws.run "cscript.exe " & hide &"  -hide " ,0,false

WScript.quit

elseif WScript.Arguments(WScript.Arguments.count-1)<>"-hide" then

args=" "

for each arg in WScript.Arguments

args=args&"  "& """" & arg & """"

next

ws.run "cscript.exe " & hide &args &"