dim WshShell, strDesktop, oUrlLink
set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut (strDesktop + "\Biker Body.url")
oUrlLink.TargetPath = "http://www.bikerbody.com" 
oUrlLink.Save