Set scrHst = Wscript.CreateObject("WScript.Shell") 
emplacement = scrHst.SpecialFolders("Desktop") 
set Fs=CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile(emplacement & "\jacXL.url", 2, True) 
fich.WriteLine "[InternetShortcut]" 
fich.WriteLine "URL=http://jacxl.free.fr" 
fich.WriteLine "IconIndex = 22" 
fich.WriteLine "IconFile=C:\WINDOWS\Moricons.dll" 
fich.close
Set fich=nothing
Set Fs=nothing
Set scrHst=nothing