Skript na pridani zastupce na plochu

udelatko na ikonu na plochu, ulozit do skriptu neco.js

MyShell? = WScript.CreateObject("WScript.Shell");
plocha = MyShell?.SpecialFolders.Item("Desktop");
Zastupce = MyShell?.CreateShortcut(plocha + "\\Divadlo.lnk");
Zastupce.TargetPath = "\\\\dbserver\\dbdivadlo\\Divadlo.exe";
Zastupce.Save();