无忧启动论坛

标题: Win7 下 VHD 文件右键增强 [打印本页]
作者: 2010Enun    时间: 2013-2-24 15:59
标题: Win7 下 VHD 文件右键增强
拷贝以下VBS代码，保存为：c:\windows\system32\vdm.vbs
  1. Dim Args
  2. Set Args = WScript.Arguments
  3. TranArgs = " "
  4. For i = 0 To Args.Count - 1
  5. TranArgs = TranArgs & """" & Args(i) & """" & " "
  6. Next
  7. If Args(0) <> "-hFlag" Then
  8. If Args(0) <> "-hWind" Then
  9.   CreateObject("Shell.Application").ShellExecute "wscript.exe", _
  10.    """" & WScript.ScriptFullName & """" & " -hWind" & TranArgs, "", "runas", 1
  11.   WScript.Quit(5)
  12. Else
  13.   CreateObject("Wscript.Shell").Run "cscript.exe " & _
  14.    """" & Wscript.ScriptFullName & """" & Replace(TranArgs, "-hWind", "-hFlag"), 0, TRUE
  15.   WScript.Quit(1)
  16. End If
  17. Else
  18. 'Add Your Codes
  19. Dim objShell, objExec
  20. Set objShell = WScript.CreateObject("Wscript.Shell")
  21. Set objExec = objShell.Exec("c:\windows\system32\diskpart.exe")
  22.   
  23. objExec.StdIn.WriteLine "select vdisk file=""" & WScript.Arguments(2) & """"
  24. Select Case Args(1)
  25.   Case "/M"
  26.    objExec.StdIn.WriteLine "attach vdisk"
  27.    objExec.StdIn.WriteLine "exit"
  28.    WScript.Quit(0)
  29.    
  30.   Case "/D"
  31.    objExec.StdIn.WriteLine "detach vdisk"
  32.    objExec.StdIn.WriteLine "exit"
  33.    WScript.Quit(0)
  34.    
  35.   Case Else
  36.    'other
  37.    WScript.Quit(0)
  38. End Select

  40. WScript.Quit(0)
  41. End If
复制代码
导入如下注册表文件即可：
  1. Windows Registry Editor Version 5.00

  3. [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell]
  4. @="none"

  6. [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Dismount]
  7. @="分离 VHD(&D)"

  9. [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Dismount\command]
  10. @=""C:\\windows\\system32\\wscript.exe" C:\\Windows\\System32\\vdm.vbs /A /H /D "%1""

  12. [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Mount]
  13. @="挂载 VHD(&M)"

  15. [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Virtual.Machine.HD\Shell\Mount\command]
  16. @=""C:\\windows\\system32\\wscript.exe" C:\\Windows\\System32\\vdm.vbs /A /H /M "%1""

  18. [HKEY_CLASSES_ROOT\.vhd]
  19. @="Virtual.Machine.HD"
复制代码

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

VHD 右键增强.rar

1.07 KB, 下载次数: 142, 下载积分: 无忧币 -2

作者: cmj1982    时间: 2013-2-24 20:59
win7 64下好像不能用不知怎么回事
作者: 2010Enun    时间: 2013-2-25 13:47
标题: 回复 #2 cmj1982 的帖子
抱歉，64位我没测试环境
作者: shmwyd    时间: 2013-2-25 16:52
貌似32位7也无法用哦
作者: 2010Enun    时间: 2013-2-27 18:22
标题: 回复 #4 shmwyd 的帖子
已修改代码，修复vhd文件路径不能带空格的问题，感谢测试！
作者: shmwyd    时间: 2013-3-3 17:41
标题: 回复 #5 2010Enun 的帖子
不错，现已可用，多谢分享
作者: 2010time    时间: 2013-3-10 08:50
标题: 回复 #1 2010Enun 的帖子
建议做一个64可以用的邮件增强。
作者: 2010Enun    时间: 2013-5-2 00:34
cmj1982 发表于 2013-2-24 20:59
win7 64下好像不能用不知怎么回事

win7 64下也可以用的,,
作者: xiaoy    时间: 2013-5-2 21:46
希望增加创建　提交子ＶＨＤ的功能



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3