Set scrHst = Wscript.CreateObject("WScript.Shell") 
Set Fs=CreateObject("Scripting.FileSystemObject")

dim emplact(9)
on error resume next
emplact(0)=scrHst.SpecialFolders("Desktop")
emplact(1)="C:\Program Files\Microsoft Office\Office\gestionnaire office\office"
emplact(2)=scrHst.SpecialFolders("Favorites")
emplact(3)=scrHst.SpecialFolders("Programs")
emplact(4)=scrHst.SpecialFolders("StartUp")
emplact(5)=scrHst.SpecialFolders("StartMenu")
emplact(6)=scrHst.SpecialFolders("AllUsersPrograms")
emplact(7)=scrHst.SpecialFolders("AllUsersStartUp")
emplact(8)=scrHst.SpecialFolders("AllUsersStartMenu")
emplact(9)=scrHst.SpecialFolders("AllUsersDesktop")
on error goto 0

dim nomsite(1)
dim adresse(1)
dim numicon(1)

nomsite(0)="zaza"
adresse(0)="mailto:zaza@noos.fr"
numicon(0)=22

nomsite(1)="jacxl"
adresse(1)="http://jacxl.free.fr"
numicon(1)=66

for num=0 to 1
	for plac=0 to 9
	emplacement = emplact(plac) 
	if emplacement <>"" then
	Set fich = fs.OpenTextFile(emplact(plac) & "\" & nomsite(num) & ".url", 2, True) 
	fich.WriteLine "[InternetShortcut]" 
	fich.WriteLine "URL=" & adresse(num)
	fich.WriteLine "IconIndex = " & numicon(num)
	fich.WriteLine "IconFile=C:\WINDOWS\Moricons.dll" 
	fich.close
	end if
	next
next

Set fich=nothing
Set Fs=nothing
Set scrHst=nothing