[déplacé VB.NET -> VBS] Download et upload de fichier via script VBS

Signaler
Messages postés
8
Date d'inscription
lundi 23 avril 2007
Statut
Membre
Dernière intervention
6 février 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonsoir le forum,

Voici un petit script repêché sur le net pour downloader un fichier internet et le sauver automatiquement sur mon PC, jusque là, tout va bien.

'Set your settings
    strFileURL = "http://www.imfeelingmyself.com/downloads/doc_download/13-xp-2k-script56exe.html"
    strHDLocation = "G:\DOSS\56fr1.exe"

' Fetch the file
    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


Ma question ...

Comment faire l'inverse ?

J'ai 4 fichiers à Uploader sur 4 sites intranet différents ...

Qqn pour m'aider ?

Si vous avez un script ou une façon plus rapide ou facile de downloader et upload un fichier, je suis preneur :p

Voili, voilou.

Merciiii

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,

à ce niveau (upload) il faudra passer par le protocole FTP

je ne sais pas ce qui existe pour ce faire, en VBS (attention aux thèmes, topic déplacé), c'est toujours un point de départ de recherches

bon courage

[hr]
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47