Recherche:

Juste après cette ligne
If Ucase(prg)="WINWORD" then prg=Right(prg,4)ajoute
prg=prg+" 2010.exe"

Tout à fait possible avec quelques petites modifications du
Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,myShort
Dim I,Prg,Prg1,tb(3)
Const RegVal=0
Const...

Tout à fait s'il ne connait pas la limite sup du compteur.
Ce qui n'est pas le cas mais cela reste toujours valable.

Bon voici tout le code en espérant avoir correctement répondu à tes questions:

Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,myShort
Dim I,Prg,Prg1, Msg,tb(3),lRet,RegVal,Creer

Const...

Comme dans ce POST

Oui si on indique le chemin de chaque programme(si installé)

Pourtant sur mes 2 machines(XP Home et XP Pro), il n'y a aucun message d'erreur.
Je viens juste de rectifier le code en mettant les n° de lignes et en permettant l'annulation de l'action à...

Tout à fait, c'est dû à "copier/coller" et je ne m'en suis pas rendu compte.
Merci bibil
La valeur correcte est:
Const...

Bon, je viens de trouver une autre solution en plus de celle déjà évoquée plus haut :
Option Explicit
Const...

Je ne dirais rien de tel car personne ne m'a obligé de répondre. Je répondrai à toute question dans la limite de mes possibilités.
Pour déployer les raccourcis directement sur le bureau il suffit...

Essaie ceci :
Option Explicit
Dim WS, strDesktop, oMyShortCut,FSO,Fd
dim I,cnt,Prg,Prg1,myFolder,tb(5)

tb(1)="Corbeille.{645FF040-5081-101B-9F08-00AA002F954E}"
tb(2)="Favoris...

Je ne l'ai pas testé sur ces OS mais il devrait marcher si tu indiques bien le contenu des variables tb().
Par exemple, tu peux remplacer tb(4) par :
tb(4)="%userprofile%\Mes documents"...

Tout à fait sous condition d'indiquer le chemin d'accès de chaque dossier ou fichier.
Dans le script suivant, tu peux remplacer les valeurs de tb() par celles qui te conviennent:
Option Explicit...

Salut;
Voici le code commenté :
Option Explicit
'==== Déclaration des variables
Dim WS, strDesktop, oMyShortCut,FSO,Fd
dim I,cnt,Prg,Prg1,myFolder

'########## Création d'une instance de...

Salut;

Voici un exemple de code qui crée des raccourcis pour les dossiers "SpecialFolders"
Il faut au préalable créer un dossier "FOLD" sur le bureau.

Option Explicit
Dim WS, strDesktop,...

Dans ce cas de figure, tu peux référencer tous les programmes(ou fichiers/dossiers) pour lesquels tu veux créer des raccourcis dans le même fichier script(recopie le script précédent autant de fois...

Certaines déclarations/définitions ne sont pas reconnues sous VBScript telles que Dim x As..... : on n'ajoute pas le type.
App.Path et App.EXEName sont spécifiques à Visual Basic.
Voici un petit...