首页 > 其他分享 >如何在右键菜单里添加VHD的挂载和卸载命令?

如何在右键菜单里添加VHD的挂载和卸载命令?

时间:2022-10-27 22:33:45浏览次数:88  
标签:Quit Shell WScript Args Virtual objExec 右键 卸载 VHD

平台:Windows 7

目的:在鼠标右键菜单里添加VHD的挂载和卸载命令。

方法:

1、很麻烦,安装Microsoft Virtual Server 2005。

2、很简单,用VB脚本即可。

首先,做个VBS脚本,取名VHDM.vbs,放在system32目录里,内容如下

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

其次,做个reg文件,在右键菜单里添加命令VHD的管理项目,内容如下:

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\\vhdm.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\\vhdm.vbs /M \"%1\""
[HKEY_CLASSES_ROOT\.vhd]
@="Virtual.Machine.HD"

 

标签:Quit,Shell,WScript,Args,Virtual,objExec,右键,卸载,VHD
From: https://www.cnblogs.com/mahocon/p/16834252.html

相关文章