Téléchargement d'un fichier
Bonjour,
Voir le lien "http://definitions.symantec.com/defs/symcdefsi64.exe"
Je souhaite télécharger automatiquement le fichier "symcdefsi64.exe" et l'enregistrer dans le répertoire C:\Temp en vbscript.
Est-ce que vous pouvez m'aider le script en vbs pour le télécharger et l'enregistrer tous les jours automatiquement ?
Merci à tous
Nico
Téléchargement Automatique d'un Fichier par VBScript sans Douleur
Citation:
Envoyé par
malinick
Bonjour,
Voir le lien "http://definitions.symantec.com/defs/symcdefsi64.exe"
Je souhaite télécharger automatiquement le fichier "symcdefsi64.exe" et l'enregistrer dans le répertoire C:\Temp en vbscript.
Est-ce que vous pouvez m'aider le script en vbs pour le télécharger et l'enregistrer tous les jours automatiquement ?
Merci à tous
Nico
Salut ;)
Voila j'ai tester ce code pour vous il marche chez moi 5/5 sous Windows XP SP3 et qui est inspiré de ce Message que j'ai poster Ici
Alors tu peux tester ce : :ccool:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Dim strFileURL,strHDLocation
' Tes paramètres
strFileURL = "http://definitions.symantec.com/defs/symcdefsi64.exe"
strHDLocation = "C:\Temp\symcdefsi64.exe"
' Récupérer le fichier
Set Ws = CreateObject("WScript.Shell")
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End If
Set objXMLHTTP = Nothing
'Ws.Run strHDLocation 'ici si vous voulez exécuter le fichier téléchargé ou non
Set WS = Nothing |
