REM ***********************************************

Dim objShell, RegKey, Q

Set objShell = CreateObject("WScript.Shell")

            strQuote = chr(34)       

RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit"

RegKey = RegKey & "\LastKey"

objShell.RegWrite RegKey, ""

objShell.Run "regedit"

REM ***********************************************