<script type="text/javascript">
var Shl = new ActiveXObject("WScript.Shell");
var Dsk = Shl.SpecialFolders("Desktop");
var lnk = Shl.CreateShortcut(Dsk + "\" + raccourci );
lnk.TargetPath = exécutable+paramètres ;
lnk.Save();
</script>
<script type="text/javascript">
var Shell = new ActiveXObject("WScript.Shell");
document.writeln("Répertoire courant:\t"+Shell.CurrentDirectory+"
");
document.writeln("Répertoires Système:
");
for (var i=0;i<Shell.SpecialFolders.length;i++)
document.writeln("\t"+i+"="+Shell.SpecialFolders(i)+"
");
document.writeln("Environnement:
");
i=Shell.Environment;
document.writeln("WINDIR:\t"+i("WINDIR")+"
");
document.writeln("Path:\t"+i("PATH")+"
");
document.writeln("Prompt:\t"+i("PROMPT")+"
");
document.writeln("dircmd:\t"+i("dircmd")+"
");
</script>
<script type="text/javascript">
var sf= [ "AllUsersDesktop","AllUsersStartMenu","AllUsersPrograms","AllUsersStartup",
"Desktop","Favorites","Fonts","MyDocuments","NetHood","PrintHood","Programs",
"Recent","SendTo","StartMenu","Startup","Templates"
];
var Shl = new ActiveXObject("WScript.Shell");
for ( var l=0; l<sf.length; l++ )
{ document.writeln ( sf[l]+" = "+Shl.SpecialFolders(sf[l])+"
" ); }
</script>