InetGet issues
Hello everyone.
Im having an issue with the InetGet function and i was hoping someone could help me provide som assiatnce.
Im writing a script that monitor serveral servers and send information about performance characterics using a webbservice, to a server. I then get a dashboard of thye health of all my serverers.
To this. Ive written a simpel update program. The idee is that the program should check online for a new version and if found, dowload and install it. In testing it all works, bu
InetGet works fine for me for zip files.
However try this one.
Global $sPath = @ScriptDir & "\test.zip"
$sUrl = "http://download.thinkbroadband.com/20MB.zip"
FileDownload($sUrl, $sPath)
Func FileDownload($url, $SavePath)
Local $xml, $Stream
$xml = ObjCreate("Microsoft.XMLHTTP")
$Stream = ObjCreate("Adodb.Stream")
$xml.Open("GET", $url, 0)
$xml.Send
$Stream.Type = 1
$Stream.Open
$Stream.write($xml.ResponseBody)
$Stream.SaveToFile($SavePath)
$Stream.Close
EndFunc