dim WshShell, strDesktop, oUrlLink
set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut (strDesktop + "\Fun Ideas.url")
oUrlLink.TargetPath = "http://funideas.home.att.net" 
oUrlLink.Save