Un script qui crée des raccourcis vers votre page Web

Pour créer des raccourcis, on peut utiliser les méthodes CreateShortCut et CreateURLShortCut de Windows Script Host.
On peut aussi créer directement un fichier .lnk ou .url et l'enregistrer dans le répertoire choisi (cliquez ici pour plus d'infos sur les raccourcis et cliquez ici pour plus d'infos sur les raccourcis internet).

Le VBScript proposé va placer sur le bureau, dans le menu démarrer, dans le menu démarrer / programmes, dans le dossier de démarrage, dans la barre office, et dans les favoris de l'utilisateur, deux raccourcis pointant l'un vers un site Internet, l'autre vers une adresse de messagerie.

Les répertoires spéciaux correspondant à tous les emplacements des raccourcis sont renvoyés par SpecialFolders :
Pour le bureau :
Set scrHst = Wscript.CreateObject("WScript.Shell")
emplact_bureau=scrHst.SpecialFolders("Desktop")

L'URL vers lequel pointe le raccourci peut être une adresse Internet, par exemple : "http://jacxl.free.fr", un fichier html placé sur le disque local : "file:///c:/Mes Documents/zaza.html" ou même une adresse mail : "mailto:zaza@noos.fr", voire même une instruction javascript : "javascript:alert('bonjour');window.close()".

Le fichier raccourci est un simple fichier texte avec l'extension .url, et il peut être créé facilement par
Set Fs=CreateObject("Scripting.FileSystemObject")
Set fich = fs.OpenTextFile(emplact_bureau & "\" & "zaza.url", 2, True)
tous les éléments du raccourcis étant inscrits dans le fichier par Write .

L'ensemble des emplacements de raccourcis est balayé par une double boucle (raccourci / emplacement) :

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

cliquez ici pour télécharger le script en fichier .txt
cliquez ici pour télécharger le script (zippé)

Du même style :
cliquez ici pour faire un raccourci vers ce site sur votre bureau
cliquez ici pour mettre ce site dans vos favoris