Win7下VHD文件右键增强实现代码(vbs+注册表)

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、导入注册表文件：

代码如下:

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"

文件打包下载：VHD 右键增强

赞 (0)

相关推荐

  • Win7下VHD文件右键增强实现代码(vbs+注册表)

    1.保存以下代码到:c:\windows\system32\vdm.vbs 复制代码 代码如下: Dim ArgsSet Args = WScript.ArgumentsTranArgs = " "For i = 0 To Args.Count - 1 TranArgs = TranArgs & """" & Args(i) & """" & " " Ne

  • VBS获取当前目录下所有文件夹名字的代码

    VBS获取当前目录下所有文件夹名字的代码

    VBS获取当前目录下所有文件夹名字,不包括子文件夹.我要给每个文件夹进行操作,所以最好用循环输出. 测试的时候要保证当前目录下有文件夹才可以,否则输出为空. 复制代码 代码如下: Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectorySet fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w

  • PHP转换文件夹下所有文件编码的实现代码

    PHP转换文件夹下所有文件的编码 适合发布网站的其他编码版本 比如你有一个GBK版本 你想有一个UTF8版本 或者你只有GBK的源码 你想二次开发 但是你不想改变IDE的编码方式 你可以用这个程序将其批量转化为UTF8:代码如下: 复制代码 代码如下: <?php/*** 把一个文件夹里的文件全部转码 只能转一次 否则全部变乱码* @param string $filename*/function iconv_file($filename,$input_encoding='gbk',$outpu

  • C#设置自定义文件图标实现双击启动(修改注册表)

    程序生成的自定义文件,比如后缀是.test 这种文件怎么直接启动打开程序,并打开本文件呢 1.双击打开 2.自定义的文件,有图标显示 3.自定义的文件,点击右键有相应的属性 后台代码:(如何在注册表中修改信息) //工具启动路径 string toolPath = System.Windows.Forms.Application.StartupPath + "\\邮件小工具.exe"; string extension = SptdConst.FileExtension; string

  • vbs 注册表操作代码(添加删除)

    1.读注册表的关键词和值: 可以通过把关键词的完整路径传递给wshshell对象的regread方法.例如: 复制代码 代码如下: set ws=wscript.createobject("wscript.shell") v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz") wscript.echo v 2.写注册表 使用wshshell对象的reg

  • Python和perl实现批量对目录下电子书文件重命名的代码分享

    经常会遇到下载的文件或电子书,名字中间都包含了一些网址信息,实际使用中由于名字太长不方便,下面的脚本使用正则表达式来对目录下的所有文件重命名: 例如: 修改前:[我们]Mac OS X for Unix Geeks[www.jb51.net].mobi 修改后:Mac OS X for Unix Geeks.mobi python代码如下: 复制代码 代码如下: import os import re def rename_dir(dir,regex,f):   if not os.path.i

  • vbs 注册表操作类代码

    复制代码 代码如下: Option Explicit Const WBEM_MAX_WAIT = &H80 ' Registry Hives Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CON

  • 注册表REG文件全攻略—注册表使用全攻略之十五

    注册表REG文件全攻略-注册表使用全攻略之十五 1.何谓REG文件 REG文件实际上是一种注册表脚本文件,双击REG文件即可将其中的数据导入到注册表中.利用REG文件我们可以直接对注册表进行任何修改操作,它对注册表的操作可以不受注册表编辑器被禁用的限制,因此功能更为强大.灵活,另外,由于REG文件可以用任何文本文件编辑工具(例如记事本)进行修改,因此通过它对注册表数据进行修改后,如果发生错误,还可以通过改回REG文件中的数据后再导入,从而实现恢复操作,因此它又较之直接用注册表编辑器修改更安全,所

  • 文件关联及应用—注册表使用全攻略之二

    注册表的文件关联及应用-注册表使用全攻略之二  喜欢使用Windows右键快捷菜单的朋友可能知道,当你选择了一个文件(或者是文件夹或是系统图标)再单击鼠标右键,系统就会弹出一个菜单,菜单上面的各种"功能"(或称"操作")任你选择,但是你是否注意到,当你安装一些应用软件之后,你的右键菜单是不是膨胀,以winzip为例,安装winzip之后,文件或文件夹的右键菜单当中就增加了功能选择项"Add to Zip"和"Add to xxx.zip

  • [注册表]让XP记忆更多的文件夹视图

    在默认情况下,Windows XP会记住最近的400个文件夹的设置.如果你对超过400个文件夹进行了设置,则最早的那些文件夹设置就会丢失.能否让Windows XP记忆更多的文件夹视图呢?通过修改注册表,我们可以任意设置它最多记忆的文件夹数目: 打开注册表编辑器,依次展开[HKEY_ CURRENT _USER\Software \Microsoft\Windows\Shell ]分支,在右侧窗口中将子键"BagMRU Size"(REG_DWORD型,如果没有应该先创建)的值修改为你

随机推荐