Vous pouvez utiliser VBScript et une version de XMLHTTP. Les sous téléchargements suivants au lieu des téléchargements, mais il peut vous donner un début :
Sub wGet(strURL, strLocalFile)
'
' Example Usage
' wGet URLtofile, LocalFileSpec
'
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP.3.0")
With objXMLHTTP
.Open "GET", strURL, False
.Send
If .Status = 200 Then
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Open
.Type = 1
.Write objXMLHTTP.responseBody
.SaveToFile strLocalFile, 2
.Close
End With
Else
varToUser = MsgBox("Web server returned an error", _
vbInformation, "ASU Portable Environment Setup")
Wscript.Quit
End If
End With
Set objXMLHTTP = nothing
End Sub