set WshShell = WScript.CreateObject("WScript.Shell")
   strDesktop = WshShell.SpecialFolders("Desktop")
   set oUrlLink = WshShell.CreateShortcut(strDesktop & "\LogIn Website.url")
   oUrlLink.TargetPath = "http://contal3/transport/prog/aa/login.htm"
   oUrlLink.Save