From 0e8a65b8839145fefb5d55a345d9e2f4754ebb27 Mon Sep 17 00:00:00 2001
From: Mark Vejvoda <mark_vejvoda@hotmail.com>
Date: Wed, 4 May 2011 00:34:32 +0000
Subject: [PATCH] - added missing cscript script file for windows builds

---
 mk/windoze/getTools.vbs | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 mk/windoze/getTools.vbs

diff --git a/mk/windoze/getTools.vbs b/mk/windoze/getTools.vbs
new file mode 100644
index 00000000..9ba17dd5
--- /dev/null
+++ b/mk/windoze/getTools.vbs
@@ -0,0 +1,34 @@
+' Set your settings
+strFileURL = "http://master.dl.sourceforge.net/project/megaglest/7z.exe"
+strHDLocation = "..\..\data\glest_game\7z.exe"
+
+WScript.Echo "----------------------------------------"
+WScript.Echo "About to download 7z.exe from:"
+WScript.Echo strFileURL & ", please wait..."
+
+' Fetch the file
+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
+WScript.Echo "7z.exe has been downloaded successfully to: " 
+WScript.Echo strHDLocation
+WScript.Echo "----------------------------------------"
+End if
+
+Set objXMLHTTP = Nothing
\ No newline at end of file