Bat Internetverbindung mit vbs testen
Guten morgen,
für einen kurzen Test, ob eine Internetverbindung vorhanden ist, komme ich leider nicht weiter. Die Ausgabe des Tests soll in einer batrch weiterverarbeitet werden, dazu wurde vorher eine vbs Abfrage erzeugt. Es passiert aber leider weiter gar nicht, außer, dass eine Datei "20" erzeugt wird, in der steht: " if i then Exit Do"
PS: Vielleicht geht es auch einfacher ohne vbs?
Hier mein bisheriger Code:
Gruß OKIDOKI
PS: Vielleicht geht es auch einfacher ohne vbs?
Hier mein bisheriger Code:
@ECHO OFF & SETLOCAL
:: Beginn vbs
>%temp%\msgbox.vbs ECHO Option Explicit
>>%temp%\msgbox.vbs ECHO Dim oIE
>>%temp%\msgbox.vbs ECHO Dim Test, 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 Test = .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
"%temp%\msgbox.vbs"
SET /A "inet=%.readystate%"
del "%temp%\msgbox.vbs"
IF %inet%==4 (GOTO :gleich) else (goto :ungleich)
:gleich
echo läuft
pause
exit
:ungleich
echo läuft nicht
pause
exit
Gruß OKIDOKI
Please also mark the comments that contributed to the solution of the article
Content-Key: 181787
Url: https://administrator.de/contentid/181787
Printed on: April 26, 2024 at 13:04 o'clock
10 Comments
Latest comment
Hallo OKIDOKI!
Eher so (ungetestet):
Grüße
bastla
[Edit] Zeile 23 korrigiert [/Edit]
Eher so (ungetestet):
@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
bastla
[Edit] Zeile 23 korrigiert [/Edit]