'Adds command prompt as a context menu to all folders.

'Get a shell scripting object
Set oShell = WScript.CreateObject("WScript.Shell")

'Write registry entries
oShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\Command_Prompt\", "Command Prompt", "REG_SZ"
oShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\Command_Prompt\command\", "cmd.exe /k cd ""%L"" && echo Command Prompt - %L", "REG_SZ"

'Re-register
oShell.Run "REGSVR32 /I /S SHELL32.DLL", 4, True

'All done
MsgBox "Command prompt added to folder context menu.",,"Command Prompt Added"