Const ADMINISTRATIVE_TOOLS = 6 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject("WScript.Shell") strDesktopFld = objFolderItem.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Ebuyclub, Economisez sur vos Achats.url") objURLShortcut.TargetPath = "http://www.ebuyclub.net" objURLShortcut.Save Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject("WScript.Shell") strDesktopFld = objFolderItem.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\eBay, pour acheter moins cher.url") objURLShortcut.TargetPath = "http://rover.ebay.com/rover/1/709-53476-19255-0/1?icep_ff3=1&pub=5574645305&toolid=10001&campid=5336665722&customid=&ipn=psmain&icep_vectorid=229480&kwid=902099&mtid=824&kw=lg" objURLShortcut.Save Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject("WScript.Shell") strDesktopFld = objFolderItem.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Comparateur de prix.url") objURLShortcut.TargetPath = "http://www.igraal.net" objURLShortcut.Save Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject("WScript.Shell") strDesktopFld = objFolderItem.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Le Top de l'internet.url") objURLShortcut.TargetPath = "http://www.moxow.com" objURLShortcut.Save Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject("WScript.Shell") strDesktopFld = objFolderItem.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Mailorama.url") objURLShortcut.TargetPath = "http://www.mailorama.fr/index.php?parrain=telimel" objURLShortcut.Save Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject("WScript.Shell") strDesktopFld = objFolderItem.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Deal Extreme.url") objURLShortcut.TargetPath = "http://www.dealextreme.com/default.dx/r.99937210" objURLShortcut.Save