| 12345678910111213141516171819202122232425 |
- @echo off
- if exist ip.txt del ip.txt
- @echo off & setlocal
- set URL=http://checkip.dyndns.com/
- set G=%temp%\GetHTML.vbs
- echo On Error Resume Next:Set Http=CreateObject("WinHttp.WinHttpRequest.5.1"):Http.Open "GET",WScript.Arguments(0),False:Http.Send:Q=Split(Http.ResponseText,":")(1):WScript.Echo Trim(Split(Q,"<")(0))>%G%
- set ExtIP=
- for /f %%i in ('cscript //nologo %G% "%URL%"') do set "ExtIP=%%i"
- del %G%
- if not defined ExtIP echo Externe IP konnte nicht ermittelt werden. & goto :eof
- echo %ExtIP% >> ip.txt
- exit
|
