Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists("C:\icrules") Then
FSO.CreateFolder("C:\icrules")
End If
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://myurl.ru/fest/settings.properties", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "c:\icrules\settings.properties", 2