Bat Internetverbindung mit vbs testen

@ECHO OFF & SETLOCAL

:: Beginn vbs
 >%temp%\msgbox.vbs ECHO Option Explicit 
>>%temp%\msgbox.vbs ECHO Dim oIE, i 
>>%temp%\msgbox.vbs ECHO Set oIE = CreateObject ("InternetExplorer.Application")   
>>%temp%\msgbox.vbs ECHO With oIE 
>>%temp%\msgbox.vbs ECHO   .navigate "http://google.de"   
>>%temp%\msgbox.vbs ECHO   .visible = False 
>>%temp%\msgbox.vbs ECHO   do until .readystate=4  
>>%temp%\msgbox.vbs ECHO     wscript.sleep 100 
>>%temp%\msgbox.vbs ECHO     if i > 20 then Exit Do
>>%temp%\msgbox.vbs ECHO     i = i + 1 
>>%temp%\msgbox.vbs ECHO   loop 
>>%temp%\msgbox.vbs ECHO     WScript.Echo .readystate      
>>%temp%\msgbox.vbs ECHO   .quit  'IE wird geschlossen   
>>%temp%\msgbox.vbs ECHO End with 
>>%temp%\msgbox.vbs ECHO Set oIE = nothing
:: ende vbs

:: weiter im batch
set /a inet=-1
for /f %%i in ('cscript //nologo "%temp%\msgbox.vbs"') do SET /A "inet=%%i"  
del "%temp%\msgbox.vbs"  

IF %inet%==4 (GOTO :gleich) else (goto :ungleich)

:gleich
echo läuft
pause
exit

:ungleich
echo läuft nicht
pause