VBS获取外网IP http://bbs.bathome.net/thread-546-1-1.html作者: chy505908440 时间: 2010-6-13 15:13 斑竹我太爱你了!~作者: fe19880919 时间: 2010-6-13 21:51 谢谢版主帮忙,将来做出成品文件一定上传让大家看下。作者: HAT 时间: 2010-6-13 22:56 标题: Re 4 楼
自己去复制代码,运行即可。作者: ZJHJ 时间: 2010-6-14 18:09 @echo off
ipconfig /all >a.txt
find "IP Address" a.txt>xm.txt
for /f "tokens=2 delims=:" %%i in (xm.txt) do set nw=%%i
find "Default Gateway" a.txt >xm.txt
for /f "tokens=2 delims=:" %%i in (xm.txt) do set wg=%%i
del a.txt
del xm.txt
echo.
@echo 内网IP : %nw%
echo.
@echo 默认网关: %wg%
echo.
for /f "skip=4 tokens=1,8" %%i in ('tracert -w 1 -h 3 www.baidu.com') do (
if "%%i" equ "2" echo 外网IP : %%j
)
pause>nul
其实不同的代码查的结果不一样,所以我觉得没有什么意义。
@echo off
echo 正在连接,请稍等...
>Getip.vbs echo Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp"):Do Until oDOM.readyState="complete":WScript.sleep 200:Loop:WScript.echo oDOM.documentElement.outerText:Set oDOM=nothing
for /f "tokens=2 delims=[" %%i in ('"cscript //nologo Getip.vbs"') do echo 你的外网 IP 是: [%%i
del Getip.vbs
pause