vbs实现右键菜单中添加CMD HERE

添加“CMD HERE”右键菜单功能可以方便地在指定文件夹打开CMD，提高工作效率。下面是具体步骤：

1. 新建vbs文件

在任何位置新建一个文本文件，将其命名为“cmd_here.vbs”。

2. 编写vbs代码

将以下代码复制到“cmd_here.vbs”文件中：

Const MenuText = "CMD HERE"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
strCurDir = objShell.NameSpace(objFSO.GetParentFolderName(WScript.ScriptFullName)).Self.Path
Dim objContextMenu,objFolder,objFolderItem
Set objFolderItem = objShell.NameSpace(strCurDir)
Set objFolder = objFSO.GetFolder(strCurDir)
Set objContextMenu = objFolderItem.GetFolder.Items.Item(0).Verbs
objContextMenu.AddSeparator
Set objMenuItem = objContextMenu.Add("CommandPromptHere", MenuText)
objMenuItem.ExtendedVerbText = strCurDir

其中，“MenuText”变量可以设置右键菜单中显示的名称，这里设为“CMD HERE”；“objFSO”和“objShell”对象用于获取当前文件夹路径，生成右键菜单对象；“objMenuItem.ExtendedVerbText”表示在右键菜单中高亮显示的文本，这里设置为当前文件夹路径。

3. 导入注册表

1. 将“cmd_here.vbs”文件复制到“C:\Windows”目录下。
2. 打开“cmd”，在命令行中输入以下命令：

reg add "HKCR\Folder\shell\CommandPromptHere" /t REG_SZ /d "CMD HERE" /f

reg add "HKCR\Folder\shell\CommandPromptHere\command" /t REG_SZ /d "wscript.exe C:\Windows\cmd_here.vbs" /f

注意：“\Folder\shell”表示在“文件夹”右键菜单上添加菜单，如果想在“驱动器根目录”、“文件”或其他位置添加，可以将此路径替换为相应的注册表密钥。

示例1

以在“C:\Windows\System32”文件夹中添加“CMD HERE”右键菜单为例。

1. 修改vbs代码中的“MenuText”变量为“CMD HERE in System32”。
2. 修改vbs代码中的“strCurDir”变量为“C:\Windows\System32”。
3. 保存“cmd_here.vbs”文件，并将其复制到“C:\Windows”目录下。
4. 打开“cmd”，在命令行中输入以下命令：

reg add "HKCR\Folder\shell\CommandPromptHere_System32" /t REG_SZ /d "CMD HERE in System32" /f

reg add "HKCR\Folder\shell\CommandPromptHere_System32\command" /t REG_SZ /d "wscript.exe C:\Windows\cmd_here.vbs" /f

示例2

以在“C:\Users\YourUserName”文件夹中添加“CMD HERE”右键菜单为例。

1. 修改vbs代码中的“MenuText”变量为“CMD HERE in YourUserName”。
2. 修改vbs代码中的“strCurDir”变量为“C:\Users\YourUserName”。
3. 保存“cmd_here.vbs”文件，并将其复制到“C:\Windows”目录下。
4. 打开“cmd”，在命令行中输入以下命令：

reg add "HKCR\Folder\shell\CommandPromptHere_YourUserName" /t REG_SZ /d "CMD HERE in YourUserName" /f

reg add "HKCR\Folder\shell\CommandPromptHere_YourUserName\command" /t REG_SZ /d "wscript.exe C:\Windows\cmd_here.vbs" /f

以上就是vbs实现右键菜单中添加“CMD HERE”功能的完整攻略。无论是在哪个文件夹，只需要右键单击文件夹，在“CMD HERE”下选择“CMD HERE in ***”即可。