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