Windows 7 下快速挂载和分离VHD文件的小脚本
2017-03-26 10:55
225 查看
1、保存以下代码为VDM.vbs,放在Windows\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
2、保存以下代码为VDM.reg,导入注册表
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"
[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"
[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"
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、保存以下代码为VDM.reg,导入注册表
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"
[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"
[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文件的小脚本
- 【两个小脚本,用来实现快速挂载(附加)和分离VHD文件】
- Windows快速删除文件脚本
- Windows 7上VHD的附加和分离应用脚本
- 在vhd文件上安装Windows 7
- 用mount挂载远程Windows共享文件夹进行文件拷贝的方法
- Windows快速创建大文件的三种方法
- 用mount挂载远程Windows共享文件夹进行文件拷贝的方法
- 利用windows脚本实现Oracle数据库定时导出文件
- 使用WINDOWS的VBS脚本,创建自己的文件类型!
- Windows脚本 - 关于本机ARP静态绑定批处理文件讲解[绑定ip-mac脚本详解]
- linux挂载windows共享文件
- 利用windows脚本实现文件的自动备份
- Windows下快速复制文件工具Robocopy介绍
- 在linux下如何挂载windows文件
- 用VHD文件将Windows 7安装到虚拟磁盘
- linux下挂载windows的共享文件目录ftp文件夹到/root/wind目录
- 利用windows脚本实现Oracle数据库定时导出文件
- KDE挂载Windows分区不能正常显示中文文件的解决方法
- 在VHD文件上安装Windows 7或Windows 2008 R2