forked from Mirrors/freeswitch
47 lines
1.1 KiB
Plaintext
47 lines
1.1 KiB
Plaintext
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
||
|
|
Set objArgs = WScript.Arguments
|
||
|
|
|
||
|
|
StartPos = InstrRev(objargs(0), "/", -1, 1)
|
||
|
|
strlength = Len(objargs(0))
|
||
|
|
|
||
|
|
If objArgs.Count > 1 Then
|
||
|
|
Path= Showpath(objargs(1))
|
||
|
|
Else
|
||
|
|
Path= Showpath(".")
|
||
|
|
End If
|
||
|
|
Wget objargs(0), Path & "\", Right(objargs(0),strlength-StartPos)
|
||
|
|
|
||
|
|
|
||
|
|
Sub Wget(URL, DestFolder, Imagefile)
|
||
|
|
|
||
|
|
Set xml = CreateObject("Microsoft.XMLHTTP")
|
||
|
|
xml.Open "GET", URL, False
|
||
|
|
xml.Send
|
||
|
|
|
||
|
|
set oStream = createobject("Adodb.Stream")
|
||
|
|
Const adTypeBinary = 1
|
||
|
|
Const adSaveCreateOverWrite = 2
|
||
|
|
Const adSaveCreateNotExist = 1
|
||
|
|
|
||
|
|
oStream.type = adTypeBinary
|
||
|
|
oStream.open
|
||
|
|
oStream.write xml.responseBody
|
||
|
|
|
||
|
|
' Do not overwrite an existing file
|
||
|
|
oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
|
||
|
|
|
||
|
|
' Use this form to overwrite a file if it already exists
|
||
|
|
' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
|
||
|
|
|
||
|
|
oStream.close
|
||
|
|
|
||
|
|
set oStream = nothing
|
||
|
|
Set xml = Nothing
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Function Showpath(folderspec)
|
||
|
|
Dim fso, f
|
||
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
||
|
|
Set f = fso.GetFolder(folderspec)
|
||
|
|
showpath = f.path
|
||
|
|
End Function
|