茄子在线看片免费人成视频,午夜福利精品a在线观看,国产高清自产拍在线观看,久久综合久久狠狠综合

這篇文章主要介紹了Win7下VHD文件右鍵增強(qiáng)的實(shí)現(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)入注冊(cè)表文件：

代碼如下:

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"