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

Option Explicit

Dim WSHShell, RegKey, ScreenSaver, Result

Set WSHShell = CreateObject("WScript.Shell")

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

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

If Result = 6 Then 	'Clicked yes

   ON ERROR RESUME Next

   WSHShell.RegDelete regkey & "Search Google\"
   WSHShell.RegDelete regkey & "Search Images\"
   WSHShell.RegDelete regkey & "Search Downloads\"
   WSHShell.RegDelete regkey & "Search Dictionary\"
   WSHShell.RegDelete regkey & "Search Knowledgebase\"
   WSHShell.RegDelete regkey & "Shop Amazon\" 
   WSHShell.RegDelete regkey & "Shop Yahoo\" 
   WSHShell.RegDelete regkey & "Shop Froogle\"
   WSHShell.RegDelete regkey & "Shop eBay\"

   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

' End code