Stroka = "Проба"
Set Req = CreateObject("WinHttp.WinHttpRequest.5.1")
req.Option 2,"Windows-1251"
URL = "http://infougratest2.dyndns.org:1611/rokr_http_post_04?act=calc&data=" + Stroka
Req.Open "POST", URL
req.SetRequestHeader "Accept-Language", "ru"
req.SetRequestHeader "Accept-Charset","Windows-1251"
req.setRequestHeader "Content-Language", "ru"
req.setRequestHeader "Content-Charset", "Windows-1251"
Req.Send

      strResponse =Req.responsetext
      Set FSO = CreateObject("Scripting.FileSystemObject")
      Set oFile = FSO.CreateTextFile("C:\Results.txt", 2, True)
      oFile.WriteLine(strResponse)
      oFile.Close
      Set oFile = Nothing
      Set FSO = Nothing