set WshShell = WScript.CreateObject("WScript.Shell")
   strDesktop = WshShell.SpecialFolders("Desktop")


   set oUrlLink = WshShell.CreateShortcut(strDesktop & "\MaxcomMSDS.url")
   oUrlLink.TargetPath = "http://www.maxcomonline.com"
   oUrlLink.Save