strMSEx86URL = "http://definitionupdates.microsoft.com/download/definitionupdates/x86/mpam-fe.exe" strMSEx86Location = "C:\FEPDefinitions\Updates\full\x86\mpam-fe.exe" strNISX86URL = "http://definitionupdates.microsoft.com/download/DefinitionUpdates/x86/nis_full.exe" strNISX86Location = "C:\FEPDefinitions\Updates\NIS\x86\nis_full.exe" strMSEx64URL = "http://definitionupdates.microsoft.com/download/definitionupdates/amd64/mpam-fe.exe" strMSEx64Location = "C:\FEPDefinitions\Updates\full\amd64\mpam-fe.exe" strNISX64URL = "http://definitionupdates.microsoft.com/download/DefinitionUpdates/amd64/nis_full.exe" strNISX64Location = "C:\FEPDefinitions\Updates\NIS\amd64\nis_full.exe" strMSEx86delta = "http://definitionupdates.microsoft.com/download/definitionupdates/x86/mpam-d.exe" strMSEx86deltaLocation = "C:\FEPDefinitions\Updates\delta\x86\mpam-d.exe" strMSEx64delta = "http://definitionupdates.microsoft.com/download/definitionupdates/amd64/mpam-d.exe" strMSEx64deltaLocation = "C:\FEPDefinitions\Updates\delta\amd64\mpam-d.exe" Set objWINHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objWINHTTP.open "GET", strMSEx86URL, false objWINHTTP.send If objWINHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objWINHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to Set objFSO = Createobject("Scripting.FileSystemObject") 'check if file exists if so delete If objFSO.Fileexists(strMSEx86Location) Then objFSO.DeleteFile(strMSEx86Location) objADOStream.SaveToFile strMSEx86Location objADOStream.Close End IF Set objWINHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objWINHTTP.open "GET", strNISx86URL, false objWINHTTP.send If objWINHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objWINHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to Set objFSO = Createobject("Scripting.FileSystemObject") 'check if file exists if so delete If objFSO.Fileexists(strNISx86Location) Then objFSO.DeleteFile (strNISx86Location) objADOStream.SaveToFile strNISx86Location objADOStream.Close END IF Set objWINHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objWINHTTP.open "GET", strNISx64URL, false objWINHTTP.send If objWINHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objWINHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to Set objFSO = Createobject("Scripting.FileSystemObject") 'check if file exists if so delete If objFSO.Fileexists(strNISx64Location) Then objFSO.DeleteFile (strNISx64Location) objADOStream.SaveToFile strNISx64Location objADOStream.Close END IF Set objWINHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objWINHTTP.open "GET", strMSEx64URL, false objWINHTTP.send If objWINHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objWINHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to Set objFSO = Createobject("Scripting.FileSystemObject") 'check if file exists if so delete If objFSO.Fileexists(strMSEx64Location) Then objFSO.DeleteFile(strMSEx64Location) objADOStream.SaveToFile strMSEx64Location objADOStream.Close END IF Set objWINHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objWINHTTP.open "GET", strMSEx86delta, false objWINHTTP.send If objWINHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objWINHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to Set objFSO = Createobject("Scripting.FileSystemObject") 'check if file exists if so delete If objFSO.Fileexists(strMSEx86deltaLocation) Then objFSO.DeleteFile(strMSEx86deltaLocation) objADOStream.SaveToFile strMSEx86deltaLocation objADOStream.Close End IF Set objWINHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objWINHTTP.open "GET", strMSEx64delta, false objWINHTTP.send If objWINHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objWINHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to Set objFSO = Createobject("Scripting.FileSystemObject") 'check if file exists if so delete If objFSO.Fileexists(strMSEx64deltaLocation) Then objFSO.DeleteFile(strMSEx64deltaLocation) objADOStream.SaveToFile strMSEx64deltaLocation objADOStream.Close End IF