Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Console\QuickEdit", 0, "REG_DWORD"
WshShell.Run "cmd /k """ & Replace(WScript.ScriptFullName, "launch.vbs", "start.bat") & """", 1, False
