又一个挂载 vhd 并分配指定盘符的 vbs - 无忧启动论坛

' 挂载 vhd，并分配盘符，
' 使用语法：vhd.vbs [vhdfile path] <drv>
' 调用 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 &" -hide " ,0,false
WScript.quit
end if
'-----------------隐藏代码结束----------------------
l_n=0
if WScript.Arguments.Count>2 then l_n=asc(WScript.Arguments(1))-1 '设置盘符asc码
vhd=WScript.Arguments(0)
Set diskpart = ws.Exec("diskpart.exe")
with diskpart
.stdin.WriteLine "select vdisk file="&chr(34)&vhd&chr(34)
.stdin.WriteLine "attach vdisk"
.stdin.WriteLine "list partition"
lx=list1(3 , 3 ) '获取 list parttition 命令结果给变量 lx
wscript.echo lx
.stdin.WriteLine "exit"
do until .status=1
wscript.sleep 100
loop
end with
Set diskpart = ws.Exec("diskpart.exe")
with diskpart
.stdin.WriteLine "select vdisk file="&chr(34)&vhd&chr(34)
wscript.echo list1(1,1)
l=""
s=0
pn=0
for n=1 to len(lx) '分析lx 获取分区，并为其分配盘符
if mid(lx,n,1)=chr(10) then
if left(l,1)="-" then s=1 '下一行包含分区编号
if s=1 and left(l,1)<>"-" then '本行包含分区编号
pn=pn+1 '分区计数
parts=split(l) '将本行信息存入数组
ps=0
for each p in parts
if p<>"" then
ps=ps+1
if ps=2 then '本数组单元就是分区编号
.stdin.WriteLine "select partition="&p
.stdin.WriteLine "assign "
if l_n<>0 then '命令中附带分区盘符参数
.stdin.WriteLine "assign letter="&Ucase(chr(l_n+pn))
wscript.echo list1(1,3)
end if
end if
end if
next
end if
l=""
else
l=l&mid(lx,n,1)
end if
next
.stdin.Writeline "exit"
end with
'返回 diskpart.stdout 字符指针当前位置开始第m 条命令到第n 条命令的输出结果
function list1(m,n)
list1=""
with diskpart
.stdin.WriteLine "rem "
i=0
Do
strFromProc=replace(replace(trim(.StdOut.ReadLine()),chr(10),""),chr(13),"")&chr(10)
if instr(1,strFromProc,">")>0 then
i=i+1
elseif i>(m-1) and strfromproc<>"" then
list1=list1&strfromproc
end if
Loop While i<(n+1)
end with
end function

复制代码