Using a script to automate UNC definition updates for FEP 2010

Question

Hi all,
I tested the script mentioned in this article
http://blogs.technet.com/b/clientsecurity/archive/2010/09/16/using-a-script-to-automate-unc-definition-updates.aspx with no success. I am getting the following error:
Line: 11
Char: 5
Error: The operation timed out
Code: 80072EE2
Source: WinHttp.WinHttpRequest
the script content is as follows:
strMSEx86URL = "http://go.microsoft.com/fwlink/?LinkID=121721&clcid=0x409&arch=x86"
strMSEx86Location = "D:\defs\Updates\x86\mpam-fe.exe" 
strNISX86URL = "http://go.microsoft.com/fwlink/?LinkId=197095" 
strNISX86Location = "D:\defs\Updates\x86\nis_full.exe" 
strMSEx64URL = "http://go.microsoft.com/fwlink/?LinkID=121721&clcid=0x409&arch=x64" 
strMSEx64Location = "D:\defs\Updates\x64\mpam-fe.exe" 
strNISX64URL = "http://go.microsoft.com/fwlink/?LinkId=197094" 
strNISX64Location = "D:\defs\Updates\x64\nis_full.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 the Start
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
Anybody can help?

Answer 1

This is the script that I use and it works:
strMSEx86URL = "http://go.microsoft.com/fwlink/?LinkID=121721&clcid=0x409&arch=x86" 
strMSEx86Location = "C:\defs\Updates\x86\mpam-fe.exe" 
strNISX86URL = "http://download.microsoft.com/download/DefinitionUpdates/x86/nis_full.exe" 
strNISX86Location = "C:\defs\Updates\x86\nis_full.exe" 
strMSEx64URL = "http://go.microsoft.com/fwlink/?LinkID=121721&clcid=0x409&arch=x64" 
strMSEx64Location = "C:\defs\Updates\x64\mpam-fe.exe" 
strNISX64URL = "http://download.microsoft.com/download/DefinitionUpdates/amd64/nis_full.exe" 
strNISX64Location = "C:\defs\Updates\x64\nis_full.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