switch back to wget

This commit is contained in:
Mario Fetka
2014-03-08 08:22:29 +01:00
parent 10d0fc7117
commit 8bd53e21da
4 changed files with 15 additions and 74 deletions

View File

@@ -94,7 +94,6 @@ else
Message "Installing " + $ProductId$ + " "+ $VERSION$ + "-" + $CREATOR_TAG$ + $RELEASE$ + " 32 Bit..."
comment "Start setup program"
ChangeDirectory "%SCRIPTPATH%"
ExecWith_cscript_download "cscript" "//E:VBS"
comment "Copy files"
Files_install_32 /32Bit
Dosbatch_install_32
@@ -109,7 +108,6 @@ else
Message "Installing " + $ProductId$ + " "+ $VERSION$ + "-" + $CREATOR_TAG$ + $RELEASE$ + " 64 Bit..."
comment "Start setup program"
ChangeDirectory "%SCRIPTPATH%"
ExecWith_cscript_download "cscript" "//E:VBS"
comment "Copy files"
Files_install_64 /64Bit
Dosbatch_install_64
@@ -122,78 +120,9 @@ else
endif
[ExecWith_cscript_download]
'======================================================================
' 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 = "$htaccessURL$/$htaccessFILE$"
Const LocalFile = "$htaccessDEST$"
Const webUser = "$htaccessUSER$"
Const webPass = "$htaccessPW$"
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
'=======================================================================
' Deactivated for Silent
' 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()
' Deactivated for Silent
' Wscript.Echo "Download Complete. See " & LocalFile & " for success."
' Wscript.Quit(intOK)
'=======================================================================
' End Main
'=======================================================================
[Dosbatch_install_32]
@ECHO OFF
"$WgetExe$" -v --user=$htaccessUSER$ --password=$htaccessPW$ --output-document=$htaccessDEST$ $htaccessURL$/$htaccessFILE$
"$UnZipExe$" -v "$htaccessDEST$" -d "$InstallDir32$"
[Files_install_32]
@@ -205,6 +134,8 @@ copy "$IniCfgFile$" "$InstallDir32$"
; copy -s "%ScriptPath%\files\*.*" "$InstallDir32$"
[Dosbatch_install_64]
@ECHO OFF
"$WgetExe$" -v --user=$htaccessUSER$ --password=$htaccessPW$ --output-document=$htaccessDEST$ $htaccessURL$/$htaccessFILE$
"$UnZipExe$" -v "$htaccessDEST$" -d "$InstallDir64$"
[Files_install_64]