Dim WshShell, bKey, cn, p1, mybox Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKCR\Directory\shell\Windows Explorer\", "Windows Explorer", "REG_SZ" WshShell.RegWrite "HKCR\Directory\shell\Windows Explorer\command\", "EXPLORER.EXE /e,", "REG_SZ" bKey = WshShell.RegRead("HKCR\Directory\shell\Windows Explorer\") p1 = "HKEY_CLASSES_ROOT\Directory\shell\Windows Explorer\" n = wshshell.RegRead(p1 & "") t = "Add Windows Explorer to the Start Button Right Click" cn = InputBox("Type in what you want listed for the name. It does not have to be the actual name Windows Explorer.", t, n) If cn <> "" Then wshshell.RegWrite p1 & "", cn End If bKey = WshShell.RegRead("HKCR\Directory\shell\Windows Explorer\command\") p1 = "HKEY_CLASSES_ROOT\Directory\shell\Windows Explorer\command\" n = wshshell.RegRead(p1 & "") t = "Add Windows Explorer to the Start Button Right Click" cn = InputBox("To have Windows Explorer open closed, use what it there, to have Windows Explorer open exapanded, type in: %windir%\EXPLORER.EXE /e,c: Also modify c: if that is not the where Windows is installed.", t, n) If cn <> "" Then wshshell.RegWrite p1 & "", cn End If MsgBox "The folder of your choice has been added to the right click. If you left it set to default, it will open to My Computer. To test, right click the Start Button.",64,"Finished"