что бы проверка была <...> по кодам EROORLEVEL

Проверьте возвращаемые коды ответов команды PING.EXE в разных случаях. Скорее всего вы не сможете отличить варианты "хост недоступен" и "сеть недоступна".

А можно ли сделать что бы проверка была не по словам которые проверяет find а например по кодам EROORLEVEL

:TestMsgInt

setlocal enabledelayedexpansion
 
for /f %%t in ('ping 87.250.250.3 -n 2 -w 500') do (
    echo."%%t" | find "Ответ">nul && (
    echo WScript.Echo "╚эЄхЁэхЄ ЁрсюЄрхЄ." >"%WinDir%\temp\msgint.vbs" && start /B "" "%WinDir%\temp\msgint.vbs"
        exit /b 1
    )
    echo."%%t" | find "Превышен">nul && (
    echo WScript.Echo "╚эЄхЁэхЄ эх ЁрсюЄрхЄ." >"%WinDir%\temp\msgint.vbs" && start /B "" "%WinDir%\temp\msgint.vbs"
        exit /b 1
    )
    echo."%%t" | find "Заданный">nul && (
    EndLocal
    GoTo :TestMsgInt
    )
    echo."%%t" | find "При">nul && (
    EndLocal
    GoTo :TestMsgInt
    )
)

В общем вот что у меня получилось, работает как надо.

Rumata - просто разобрался в вашем скрипте, когда и какие сообщения он выдаёт.

Вывод, теперь если выкл адаптер он будет всё время проверять пока не будет активных сообщений, когда адаптер вкл. тогда он сразуже проверит наличие интернета и выдаст ответ либо есть, либо нету

ну и вот он

:: Проверка интернета, с защитой от ложных срабатываний.

:back

setlocal enabledelayedexpansion
 
set checkip_msg_1=Превышен интервал
set checkip_msg_2=Ответ от
 
set checkip_ip=192.168.0.1
if not defined checkip_ip (
    echo.Usage: %~n0 IP [timeout]
    goto :EOF
)
 
for /f "tokens=*" %%t in (
    'ping %checkip_ip% -n 1 -w 400'
) do (

    echo."%%t" | find "%checkip_msg_1%">nul && (
        msg * Интернета нету
        exit /b 1
    )
    echo."%%t" | find "%checkip_msg_2%">nul && (
        msg * Интернет есть
        exit /b 1
    )
)

GoTo :back

лишнее.

if not defined checkip_ip (
    echo.Usage: %~n0 IP [timeout]
    goto :EOF

root2 пишет:

ещё пишет что timeout не является командой

Видимо Вы работаете на WinXP. Там такой команды действительно нет.

вы правы

root2 пишет:

:back setlocal enabledelayedexpansion

поменяйте местами эти строки

:back

setlocal enabledelayedexpansion

я бы с радостью да вот только правильно выполняться он не будет... т.к вызывается он от команды... а эта команда переходит на метку
:back
а всё что выше просто не прочитает.

ещё пишет что timeout не является командой

Видимо Вы работаете на WinXP. Там такой команды действительно нет.

:back setlocal enabledelayedexpansion

поменяйте местами эти строки

:back

setlocal enabledelayedexpansion

Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.
Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.
Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.
Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.
Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.
Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.
Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.
Достигнут уровень рекурсии, максимально возможный для команды SETLOCAL.

Rumata - просто разобрался в вашем скрипте, когда и какие сообщения он выдаёт.

Вывод, теперь если выкл адаптер он будет всё время проверять пока не будет активных сообщений, когда адаптер вкл. тогда он сразуже проверит наличие интернета и выдаст ответ либо есть, либо нету

ну и вот он

:: Проверка интернета, с защитой от ложных срабатываний.

:back

setlocal enabledelayedexpansion
 
set checkip_msg_1=Превышен интервал
set checkip_msg_2=Ответ от
 
set checkip_ip=192.168.0.1
if not defined checkip_ip (
    echo.Usage: %~n0 IP [timeout]
    goto :EOF
)
 
for /f "tokens=*" %%t in (
    'ping %checkip_ip% -n 1 -w 400'
) do (

    echo."%%t" | find "%checkip_msg_1%">nul && (
        msg * Интернета нету
        exit /b 1
    )
    echo."%%t" | find "%checkip_msg_2%">nul && (
        msg * Интернет есть
        exit /b 1
    )
)

GoTo :back