這篇文章主要介紹了Win7下VHD文件右鍵增強的實現(xiàn)方法，需要的朋友可以參考下
    1、保存以下代碼到：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
    2、導(dǎo)入注冊表文件：
    代碼如下:
    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 /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 /M \"%1\""
    [HKEY_CLASSES_ROOT\.vhd] 
    @="Virtual.Machine.HD"