Run Command with right click

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", _
"cmd.exe /k cd " & Chr(34) & "%1" & Chr(34)
objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "Run Command Prompt"