dim WshShell, strDesktop, oUrlLink
set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut (strDesktop + "\Healthy Sex Life Products.URL")
oUrlLink.TargetPath = "http://lazyaffiliate.com/healthy_sexlife_products.html" 
oUrlLink.Save