var Shl = new ActiveXObject("WScript.Shell");
var Dsk = Shl.SpecialFolders("Desktop");
var lnk = Shl.CreateShortcut(Dsk + "\\nom du raccourci.lnk" );
lnk.TargetPath = "adresse de l'exécutable";
// lnk.IconLocation = "adresse du fichier des icônes,indice icône à utiliser";
lnk.Save();