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"



VisitKelly's Korner



Sub VisitKelly's Korner

	If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then

		wshshell.Run "http://troubleshootingXP/xp_tweaks.htm"

	End If

End Sub