function os.ping(host)
  local f = assert(io.popen('Fping.exe ' ..host .. ' -o', 'r'))
  local s = assert(f:read('*a'))
  f:close()
  return s:sub(s:find('Minimum ='), #s)
end
print(os.ping('localhost'))
 

 io.popen('echo |chcp 1251|dir')  
io.popen('echo |chcp 861|ping www.quik.ru') 

io.popen('echo |chcp 1251|echo тест')

io.popen('echo |chcp 1251|dir')  
io.popen('echo |chcp 861|ping www.quik.ru')

io.popen('chcp 1251 && ping www.quik.ru')

function backticks_table(cmd)
   local tab = {}
   local pipe = assert(io.popen(cmd),
      "backticks_table(" .. cmd .. ") failed.")
   local line = pipe:read("*line")
   while line do
      table.insert(tab, line)
      line = pipe:read("*line")
   end
   return tab
end



for k, v in ipairs(backticks_table("ping google.com"), k) do
print(v)
end