又一个挂载 vhd 并分配指定盘符的 vbs

dos时代菜鸟 · 发表于 2018-4-21 11:03:44

本帖最后由 dos时代菜鸟于 2018-4-21 21:03 编辑

利用 run 方式二次调用脚本自身，实现 exec 模式的隐藏运行。即使首次调用是 cscript 方式，也一样隐藏，支持附带参数，支持在带空格的目录运行。
利用 exec.stdout 获取命令输出信息，分析出分区编号，逐个分配盘符，不必生成 diskpart 用脚本。

使用格式 vhd.vbs “要挂载的vhd 文件完整路径” 要分配的第一个盘符

如果 c:\temp.vhd 中有多3 分区，

vhd.vbs "c:\temp.vhd" r

复制代码

就会挂载 temp.vhd 并将其中的三个分区分配给 r ,s ,t 三个盘符。

不输入盘符，将随系统分配盘符。

load_vhd-1.4.zip (2.27 KB, 下载次数: 131)

' 挂载 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

复制代码

chishingchan · 发表于 2018-4-21 14:50:55

DOS时代升级到VBS

dos时代菜鸟 · 发表于 2018-4-21 16:43:59

改进了一下，

freesoft00 · 发表于 2018-4-21 17:00:13

个人更喜欢纯dos的，因为自己不懂vbs。

dos时代菜鸟 · 发表于 2018-4-21 21:01:47

本帖最后由 dos时代菜鸟于 2018-4-21 21:04 编辑

freesoft00 发表于 2018-4-21 17:00
个人更喜欢纯dos的，因为自己不懂vbs。

cmd 应用范围更广泛，至少pe 都能用，而有的 pe 没有vbs 环境。

刚发现 win7 下，vbs以 exec 方式调用 diskpart 给vhd 分配盘符，需要运行两次 diskpart ，第一次挂在vhd ,第二次分配盘符，如果一次性挂载就分配盘符，明明选择了 part，在分配盘符的时候还会说没有选择卷。 win10 没有这问题。所以更新下脚本。这个可能会牵引出 win7 的位置溢出漏洞，可惜我没这本是。

zhjsn · 发表于 2018-4-21 21:51:07

good

Dream漂移 · 发表于 2018-11-6 22:01:50

谢谢楼主分享技术资料！！很感兴趣！！

eastmz · 发表于 2018-11-11 04:22:03

感谢楼主分享的学习资料

dsqlwz5966 · 发表于 2019-3-17 19:16:31

LZ辛苦了，刚好需要这个。

2011wind5win · 发表于 2020-5-1 19:07:27

这个问题太难了，附件没分下载，能否公布出来学习一下，谢谢

2011wind5win · 发表于 2020-5-1 19:43:47

vhd.vbs "c:\temp.vhd" r 加在哪里呢，请教下

2011wind5win · 发表于 2020-5-1 20:38:18

请问 win10桌面系统运行如何指定盘符呢？

dos时代菜鸟 · 发表于 2020-5-7 15:28:42

2011wind5win 发表于 2020-5-1 20:38
请问 win10桌面系统运行如何指定盘符呢？

如果习惯鼠标操作，就用这个吧。

http://bbs.wuyou.net/forum.php?m ... 60&fromuid=1198

2011wind5win · 发表于 2020-5-25 02:15:23

dos时代菜鸟发表于 2020-5-7 15:28
如果习惯鼠标操作，就用这个吧。

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=413760&fromuid ...

谢谢，抽空了试试

		自动登录	找回密码
密码			注册

又一个挂载 vhd 并分配指定盘符的 vbs

评分

点评

点评

点评

又一个 挂载 vhd 并分配指定盘符的 vbs

评分

点评

点评

点评

又一个挂载 vhd 并分配指定盘符的 vbs