'  Script: Install_Surflight.vbs
'  Author: Kevin Wittman
'          http://www.inframation.net
' Version: 2.0 
' Created: November 17, 2002
' Updated: November 21, 2002
' Updated: April 11, 2002

Option Explicit

Dim WSHShell, RegKey, Result, bKey

Set WSHShell = CreateObject("WScript.Shell")

RegKey = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\"

Result = MsgBox("Install SurfLight? {You must restart your browser to use the menu.}", 36, "Surflight")

If Result = 6 Then 	'Clicked yes

   WSHShell.RegWrite regkey & "Search Dictionary\", "http://www.inframation.net/surflight/surf_dictionary.htm"
   WSHShell.RegWrite regkey & "Search Downloads\", "http://www.inframation.net/surflight/surf_downloads.htm"
   WSHShell.RegWrite regkey & "Search Google\", "http://www.inframation.net/surflight/surf_google.htm"
   WSHShell.RegWrite regkey & "Search Images\", "http://www.inframation.net/surflight/surf_images.htm"
   WSHShell.RegWrite regkey & "Search Knowledgebase\", "http://www.inframation.net/surflight/surf_mskb.htm"
   WSHShell.RegWrite regkey & "Shop Amazon\", "http://www.inframation.net/surflight/surf_amazon.htm"
   WSHShell.RegWrite regkey & "Shop eBay\", "http://www.inframation.net/surflight/surf_ebay.htm"
   WSHShell.RegWrite regkey & "Shop Froogle\", "http://www.inframation.net/surflight/surf_froogle.htm"
   WSHShell.RegWrite regkey & "Shop Yahoo\", "http://www.inframation.net/surflight/surf_yahooshops.htm"
   WSHShell.RegWrite regkey & "SurfLight Home\", "http://www.inframation.net/surflight/surf_light.htm"

   ON ERROR RESUME Next
   WSHShell.RegDelete regkey & "Google Search\"
   WSHShell.RegDelete regkey & "Dictionary Lookup\"
   WSHShell.RegDelete regkey & "Search Amazon\"
   WSHShell.RegDelete regkey & "Search Yahoo Shops\"
   WSHShell.RegDelete regkey & "Download Search\"

End If