FileDownload.vbs

FileDownload "http://www.planwallpaper.com/static/images/518079-background-hd.jpg", "C:\Users\DELL\Desktop\pic.jpg"

Sub FileDownload(strURL, strPath)
    Dim arrBody
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", strURL, False
        .Send
        arrBody = .responseBody
    End With
    With CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .Write arrBody
        .SaveToFile strPath, 2
        .Close
    End With
End Sub