Win7 下 VHD 文件右键增强

2010Enun · 发表于 2013-2-24 15:59:26

拷贝以下VBS代码，保存为：c:\windows\system32\vdm.vbs

Dim Args
Set Args = WScript.Arguments
TranArgs = " "
For i = 0 To Args.Count - 1
TranArgs = TranArgs & """" & Args(i) & """" & " "
Next
If Args(0) <> "-hFlag" Then
If Args(0) <> "-hWind" Then
CreateObject("Shell.Application").ShellExecute "wscript.exe", _
"""" & WScript.ScriptFullName & """" & " -hWind" & TranArgs, "", "runas", 1
WScript.Quit(5)
Else
CreateObject("Wscript.Shell").Run "cscript.exe " & _
"""" & Wscript.ScriptFullName & """" & Replace(TranArgs, "-hWind", "-hFlag"), 0, TRUE
WScript.Quit(1)
End If
Else
'Add Your Codes
Dim objShell, objExec
Set objShell = WScript.CreateObject("Wscript.Shell")
Set objExec = objShell.Exec("c:\windows\system32\diskpart.exe")
objExec.StdIn.WriteLine "select vdisk file=""" & WScript.Arguments(2) & """"
Select Case Args(1)
Case "/M"
objExec.StdIn.WriteLine "attach vdisk"
objExec.StdIn.WriteLine "exit"
WScript.Quit(0)
Case "/D"
objExec.StdIn.WriteLine "detach vdisk"
objExec.StdIn.WriteLine "exit"
WScript.Quit(0)
Case Else
'other
WScript.Quit(0)
End Select
WScript.Quit(0)
End If

复制代码

导入如下注册表文件即可：

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell]
@="none"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Dismount]
@="分离 VHD(&D)"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Dismount\command]
@=""C:\\windows\\system32\\wscript.exe" C:\\Windows\\System32\\vdm.vbs /A /H /D "%1""
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Mount]
@="挂载 VHD(&M)"
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Mount\command]
@=""C:\\windows\\system32\\wscript.exe" C:\\Windows\\System32\\vdm.vbs /A /H /M "%1""
[HKEY_CLASSES_ROOT\.vhd]
@="Virtual.Machine.HD"

复制代码

[ 本帖最后由 2010Enun 于 2013-2-27 18:20 编辑 ]

cmj1982 · 发表于 2013-2-24 20:59:20

win7 64下好像不能用不知怎么回事

2010Enun · 发表于 2013-2-25 13:47:17

抱歉，64位我没测试环境

shmwyd · 发表于 2013-2-25 16:52:18

貌似32位7也无法用哦

2010Enun · 发表于 2013-2-27 18:22:05

已修改代码，修复vhd文件路径不能带空格的问题，感谢测试！

shmwyd · 发表于 2013-3-3 17:41:18

不错，现已可用，多谢分享

2010time · 发表于 2013-3-10 08:50:37

建议做一个64可以用的邮件增强。

2010Enun · 发表于 2013-5-2 00:34:25

cmj1982 发表于 2013-2-24 20:59
win7 64下好像不能用不知怎么回事

win7 64下也可以用的,,

xiaoy · 发表于 2013-5-2 21:46:13

希望增加创建　提交子ＶＨＤ的功能

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

回复 #2 cmj1982 的帖子