+
−' w32DownloadUnzip.vbs
+
−'   Download a zipfile and uncompress it with no external tools in Windows
+
−'
+
−' Copyright (c) 2012, Vittorio Giovara, <vittorio.giovara@gmail.com>
+
−' Redistribution and use is allowed according to the terms of the BSD license.
+
−'
+
−' References
+
−'   http://superuser.com/questions/59465/is-it-possible-to-download-using-the-windows-command-line
+
−'   http://stackoverflow.com/questions/1021557/how-to-unzip-a-file-using-the-command-line
+
−'   http://stackoverflow.com/questions/424331/get-the-current-temporary-directory-path-in-vbscript
+
−
+
−Set ArgObj = WScript.Arguments
+
−
+
−If (Wscript.Arguments.Count = 1) Then
+
−    strFileURL = ArgObj(0)
+
−    strOutputPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
+
−Else
+
−    If (Wscript.Arguments.Count = 2) Then
+
−        strFileURL = ArgObj(0)
+
−        strOutputPath = ArgObj(1)
+
−    Else
+
−        WScript.Echo ("Usage: csript.exe w32DownloadUnzip.vbs url output")
+
−        WScript.Quit
+
−    End if
+
−End if
+
−
+
−' Temporary directory
+
−strHDLocation = WScript.CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) + "\hwlibtemp.zip"
+
−
+
−' Fetch the file
+
−WScript.Echo ( "Trying to download from " & strFileURL)
+
−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
+
−    Set objXMLHTTP = Nothing
+
−Else
+
−    WScript.Echo ("Error downloading file (error code: " & objXMLHTTP.Status & ")")
+
−    Set objXMLHTTP = Nothing
+
−    WScript.Quit
+
−End if
+
−
+
−WScript.Echo ( "Extracting file to " & strOutputPath)
+
−Set objShell = CreateObject( "Shell.Application" )
+
−Set objSource = objShell.NameSpace(strHDLocation).Items()
+
−Set objTarget = objShell.NameSpace(strOutputPath)
+
−intOptions = 16 'no user prompt
+
−objTarget.CopyHere objSource, intOptions
+
−
+
−WScript.Echo ( "Success!" )
+
−Set objShell = Nothing