Moved remotely

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@47 d0543943-73ff-0310-b7d9-9358b9ac24b2

platform/vsnet/Tools/wget.vbs

@@ -0,0 +1,47 @@
+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