'======================================================================
' http-download.vbs 1.0 @2011 by Frank4dd http://www.frank4dd.com/howto
' This script demonstrates a file download from a webserver using http(s).
' It can easily be extended for using basic web authentication.
'
' This program comes with ABSOLUTELY NO WARRANTY. You may redistribute
' copies of it under the terms of the GNU General Public License.
'======================================================================
'======================================================================
' Global Constants and Variables
'======================================================================
Const scriptVer = "1.0"
'Const DownloadDest = "http://www.frank4dd.com/images/frank4dd-logo.gif"
Const DownloadDest = "http://lischis-home.dyndns.org/temp-mhg/akt-te-s.htm"
Const LocalFile = "C:\akt-te-s.htm"
'Const webUser = "username"
'Const webPass = "password"
Const DownloadType = "binary"
dim strURL
function getit()
dim xmlhttp
set xmlhttp=createobject("MSXML2.XMLHTTP.3.0")
'xmlhttp.SetOption(2, 13056) 'If url https -> Ignore all SSL errors
strURL = DownloadDest
msgbox "Download-URL: " & strURL
'For basic auth, use the line below together with user+pass variables above
'xmlhttp.Open "GET", strURL, false, webUser, webPass
xmlhttp.Open "GET", strURL, false
xmlhttp.Send
Wscript.Echo "Download-Status: " & xmlhttp.Status & " " & xmlhttp.statusText
If xmlhttp.Status = 200 Then
Dim objStream
set objStream = CreateObject("ADODB.Stream")
objStream.Type = 1 'adTypeBinary
objStream.Open
objStream.Write xmlhttp.responseBody
objStream.SaveToFile LocalFile
objStream.Close
set objStream = Nothing
End If
set xmlhttp=Nothing
End function
'=======================================================================
' End Function Defs, Start Main
'=======================================================================
' Get cmdline params and initialize variables
If Wscript.Arguments.Named.Exists("h") Then
Wscript.Echo "Usage: http-download.vbs"
Wscript.Echo "version " & scriptVer
WScript.Quit(intOK)
End If
getit()
Wscript.Echo "Download Complete. See " & LocalFile & " for success."
Wscript.Quit(intOK)
'=======================================================================
' End Main
'=======================================================================