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

时间:2022-08-31 10:03:38

右键菜单中添加CMD HERE

复制代码 代码如下:


Set WshShell=CreateObject("Wscript.Shell") 
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\","" 
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\command\","" 
WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\command\","c:\winnt\system32\cmd.exe /K CD %1","REG_SZ" 
wscript.echo "操作成功" 
set WshShell=nothing