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"
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"