Цитата BadAngel:
Может способом возможности открытия некого сайта или посредством ping? »
|
set WshShell = CreateObject("WScript.Shell")
'Запускаем ping и ожидаем завершения его работы
Return = WshShell.Run("ping
www.ru ", 0, true)
If Return=0 then
WScript.Echo "инет есть"
Else WScript.Echo "инета нет"
End If