1、保存以下代碼到：c:\windows\system32\vdm.vbs
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è)表文件：
[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"
文件打包下載：VHD 右鍵增強(qiáng)
標(biāo)簽：阜陽(yáng) 四平 河南 牡丹江 梅州 咸陽(yáng) 武威 伊春
巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《Win7下VHD文件右鍵增強(qiáng)實(shí)現(xiàn)代碼(vbs+注冊(cè)表)》，本文關(guān)鍵詞 Win7,下,VHD,文件,右鍵,增強(qiáng),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
