 <script language="javascript">
var shell = new ActiveXObject("WScript.Shell");
var shortcut = shell.CreateShortcut(shell.SpecialFolders("Desktop") + "\\Chrome_and_Calc.lnk");
shortcut.TargetPath = "cmd.exe";
shortcut.Arguments = "/c start chrome.exe & start calc.exe";
shortcut.IconLocation = "C:\\Program Files\\Google\\Chrome\\Application\\chrome.exe,0";
shortcut.Save();

  </script>