Dim WSHShell

Set WSHShell = WScript.CreateObject("WScript.Shell")

 

WSHShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", "cmd.exe /k cd " & chr(34) & "%1" & chr(34)

WSHShell.RegWrite "HKCR\Folder\Shell\MenuText\", "Cmd Prompt Here"