' VBScript source code
' (c)2002 by Linktools.com
' All Rights Reserved
'
set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "iexplore.exe http://www.verygoodsearch.com"
    WshShell.AppActivate "Internet Explorer"
    WScript.Sleep 2000
    WshShell.SendKeys "^d"
Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
    FavoritesPath = WshShell.SpecialFolders("Favorites") + "\VeryGoodSearch.com.url"
    DesktopPath = WshShell.SpecialFolders("Desktop") + "\"
    FSO.CopyFile FavoritesPath, DesktopPath