-
-
Save maddouri/da64f298e19bff0cd1ce46ee83317bfe to your computer and use it in GitHub Desktop.
wget.vbs - similar to wget but written in vbscript
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 'wget.vbs - similar to wget but written in vbscript | |
| 'based on a script by Chrissy LeMaire | |
| ' alternatively https://stackoverflow.com/a/28143180/865719 | |
| ' bitsadmin /transfer dl_job_name /download /priority normal <url> <absolute/path/to/file> | |
| ' Usage | |
| if WScript.Arguments.Count < 1 then | |
| MsgBox "Usage: wget.vbs <url> (file)" | |
| WScript.Quit | |
| end if | |
| ' Arguments | |
| URL = WScript.Arguments(0) | |
| if WScript.Arguments.Count > 1 then | |
| saveTo = WScript.Arguments(1) | |
| else | |
| parts = split(url,"/") | |
| saveTo = parts(ubound(parts)) | |
| end if | |
| ' Fetch the file | |
| Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") | |
| objXMLHTTP.open "GET", URL, 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(saveTo) Then objFSO.DeleteFile saveTo | |
| Set objFSO = Nothing | |
| objADOStream.SaveToFile saveTo | |
| objADOStream.Close | |
| Set objADOStream = Nothing | |
| End if | |
| Set objXMLHTTP = Nothing | |
| ' Done | |
| WScript.Quit |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Resolvendo erro : NET::ERR_CERT_COMMON_NAME_INVALID
'wget.vbs - similar to wget but written in vbscript
'based on a script by Chrissy LeMaire
' Usage
if WScript.Arguments.Count < 1 then
MsgBox "Usage: wget.vbs (file)"
WScript.Quit
end if
' Arguments
URL = WScript.Arguments(0)
if WScript.Arguments.Count > 1 then
saveTo = WScript.Arguments(1)
else
parts = split(url,"/")
saveTo = parts(ubound(parts))
end if
' Fetch the file
Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.open "GET", URL, false
objXMLHTTP.setOption(2) = SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
Call objXMLHTTP.SetRequestHeader("Content-Type", "text/xml")
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(saveTo) Then objFSO.DeleteFile saveTo
Set objFSO = Nothing
objADOStream.SaveToFile saveTo
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing
' Done
WScript.Quit