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

右键菜单中添加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