中国DOS联盟

@echo off
del ips.asp 1>nul 2>&1
wget http://www.ip138.com/ips.asp 1>nul 2>&1
for /f "tokens=2 skip=2 delims=[]" %%i in ('find "您的IP地址是：" ips.asp') do echo %%i
del ips.asp 1>nul 2>&1
pause

@echo off
echo Set objXML = WScript.GetObject("http://www.apnic.net/")>apnic.vbs
echo While objXML.readyState = "loading">>apnic.vbs
echo WScript.Sleep 100>>apnic.vbs
echo Wend>>apnic.vbs
echo Set coll = objXML.getElementsByTagName("td")>>apnic.vbs
echo WScript.Echo coll(0).innertext>>apnic.vbs
echo Set objXML = Nothing>>apnic.vbs
for /f "delims=: tokens=2" %%i in ('cscript //nologo apnic.vbs') do echo 本机外网IP是     %%i>ip.txt
del apnic.vbs /q

@echo off
for /f "delims=: tokens=2" %%i in ('ipconfig/all ^| find "DNS"') do set dns=%%i
for /f "skip=6 tokens=8" %%i in ('tracert %dns%') do set ip=%%i
echo %ip%

@echo off
for /f "skip=6 tokens=8" %%i in ('tracert %dns%') do (
    for /f "delims=: tokens=2" %%i in ('ipconfig/all ^| find "DNS"') do (
        set dns=%%i
    )
set ip=%%i
)
echo %ip%