Datei downloaden vbs

Set wshshell = CreateObject("WScript.Shell")  
eigenedateien = wshshell.SpecialFolders("mydocuments")  

' hier ANPASSEN!  
quelle = "http://wininfo.de/help.gif"  
ziel = eigenedateien & "\test.gif"  

DownloadHTTP quelle, ziel
wshshell.Run """" & ziel & """"  

function DownloadHTTP(quelle, ziel)
   'SYS: XML OM für Win32  
Set HTTP = WScript.CreateObject("Microsoft.XMLHTTP")  
   'SYS: Microsoft (r) Script Runtime  
Set fs = WScript.CreateObject("Scripting.FileSystemObject")  
   
   HTTP.open "GET", quelle, False  
   HTTP.send
   datei = HTTP.responseBody
   For x = 0 to UBound(datei)
      binary = binary & ChrW(AscW(Chr(AscB(MidB(datei,x+1,1)))))
   Next
   
   Set file = fs.CreateTextFile(ziel, True)
   file.Write binary
   file.Close
   DownloadHTTP = HTTP.StatusText
End function