dim WshShell, strDesktop, oUrlLink
set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut (strDesktop + "\Mark's Rare Comics.url")
oUrlLink.TargetPath = "http://rarecomics.home.att.net" 
oUrlLink.Save