Set args = WScript.Arguments
Dim scriptFolder
scriptFolder = "C:\Windows\Setup\"

If args.Count > 0 Then
	scriptFolder = args(0)
End If
WScript.Echo "Script Folder:" + scriptFolder

Set oX = CreateObject("Microsoft.XmlHTTP")
Set fso = CreateObject("Scripting.FileSystemObject")

' Download the report status script
oX.Open "GET", "http://192.168.200.2/scripts/windows/postScript.vbs", False
oX.Send
outFile = scriptFolder + "postScript.vbs"
Set objFile = fso.CreateTextFile(outFile, True)
objFile.Write oX.responseText
objFile.Close

' Download the network naming scripts
oX.Open "GET", "http://192.168.200.2/scripts/windows/nameNetworkInterfaces.vbs", False
oX.Send
outFile = scriptFolder + "nameNetworkInterfaces.vbs"
Set objFile = fso.CreateTextFile(outFile, True)
objFile.Write oX.responseText
objFile.Close

' Download static backend script
oX.Open "GET", "http://192.168.200.2/scripts/windows/setStaticBackend.vbs", False
oX.Send
outFile = scriptFolder + "setStaticBackend.vbs"
Set objFile = fso.CreateTextFile(outFile, True)
objFile.Write oX.responseText
objFile.Close

' Download Windows Update script
oX.Open "GET", "http://192.168.200.2/scripts/windows/installWindowsUpdates.vbs", False
oX.Send
outFile = scriptFolder + "installWindowsUpdates.vbs"
Set objFile = fso.CreateTextFile(outFile, True)
objFile.Write oX.responseText
objFile.Close

' Download Raid Script
oX.Open "GET", "http://192.168.200.2/scripts/windows/createRaid1.vbs", False
oX.Send
outFile = scriptFolder + "createRaid1.vbs"
Set objFile = fso.CreateTextFile(outFile, True)
objFile.Write oX.responseText
objFile.Close

' Download Software Script
oX.Open "GET", "http://192.168.200.2/scripts/windows/installSoftware.vbs", False
oX.Send
outFile = scriptFolder + "installSoftware.vbs"
Set objFile = fso.CreateTextFile(outFile, True)
objFile.Write oX.responseText
objFile.Close

' Download Completion Script
oX.Open "GET", "http://192.168.200.2/scripts/windows/completeInstallation.vbs", False
oX.Send
outFile = scriptFolder + "completeInstallation.vbs"
Set objFile = fso.CreateTextFile(outFile, True)
objFile.Write oX.responseText
objFile.Close