dim WshShell, strDesktop, oUrlLink
set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut (strDesktop + "\Chambal Intranet.URL")
oUrlLink.TargetPath = "http://www.chambal.in/home.asp" 
oUrlLink.Save