url = "http://trenttompkins.com/msd.zip"
out = "C:\mrstumps.zip"

Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
http.Send

If http.Status = 200 Then
    Set stream = CreateObject("ADODB.Stream")
    stream.Type = 1
    stream.Open
    stream.Write http.ResponseBody
    stream.SaveToFile out, 2
    stream.Close
    WScript.Echo "Downloaded to " & out
Else
    WScript.Echo "Download failed: HTTP " & http.Status
End If