Discussion :

[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

[Overcrash]

Bonsoir,

Oui nous pouvons t'aider.
Sur quoi tu bloque ? message d'erreur ? bout de code ?

[malinick]

J'ai crée le script ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set ie = CreateObject("InternetExplorer.Application") 
ie.Navigate ("http://definitions.symantec.com/defs/symcdefsi64.exe") 
WScript.Sleep (1000) 
ie.Quit

je l'ai lancé puis je vois l'affichage "Exécuter" ou "Enregistrer" ou "Annuler"

Je voudrais comment l'enregistrer automatiquement dans le répertoire "C:\Temp" sans l'affichage "Exécuter" ou "Enregistrer" ou "Annuler".

Merci

Nico

[hackoofr]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Anarown]

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

Bonjour,

Ce bout de code m'intéresse beaucoup. Mais il me retourne une erreur, une idée ?

[ProgElecT]

Salut
Comme la gestion d'erreur sous vbscript n'est pas toujours aussi précise, c'est peut être une indication ligne/colonne erroné.
Utilises tu toujours l'adresse Url http://definitions.symantec.com/defs/symcdefsi64.exe car elle retourne une erreur 404 Not Found.