call:IP_inquiry 112.234.1.110
echo %ret_str%

pause
exit/b

::======================= 查询IP地址 ==============================
:IP_inquiry <IP> 返回值=ret_str
set "cmdstr=curl -s "http://www.ip138.com/ips8.asp?ip^=%~1^&action=2"^|sed -n "/本站主数据/ s/.*^>本站主数据：\([^^^<]*\).*/\1/p""
for /f "tokens=* delims=" %%a in ('%cmdstr%') do set "ret_str=%%a"
goto:eof
复制代码

call:IP_WAN
echo %ret_str%

pause
exit/b

::======================= 查询外网IP地址 ==============================
:IP_WAN 返回值=ret_str
set "cmdstr=curl -s "http://www.ip138.com/ips8.asp"^|sed -n "/您的IP地址是/{s/^<[^^^>]*^>//g;p}""
for /f "tokens=*" %%a in ('%cmdstr%') do set "ret_str=%%~a"
goto:eof
复制代码