Ping из 1С

// msdn.microsoft.com/en-us/library/aa394595(VS.85).aspx
Адр="8.8.8.8";
wmi=ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2");
Успех=Ложь;
oColPings=wmi.ExecQuery("Select StatusCode,ResponseTime From Win32_PingStatus where Address = '"+Адр+"'");
Для Каждого objStatus Из oColPings Цикл
	Успех=Не objStatus.StatusCode;
	Время = objStatus.ResponseTime;
КонецЦикла;

Успех = Нет (Булево)
Время = (Null)

или

Успех = Да (Булево)
Время = 17 (Число)