中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-12 02:47
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 查看本机的外网IP 查看 3,969 回复 5
楼 主 查看本机的外网IP 发表于 2010-06-13 04:44 ·  中国 湖北 潜江 电信
初级用户
积分 27
发帖 24
注册 2010-05-02 21:22
16年会员
UID 165987
性别 男
状态 离线
我今天看到一个能看本机外网IP的办法,不过不会用,不知道能不能用DOS弄个看本机外网IP的批处理。下面是用其他方法查看的,哪个能看懂教下怎么用也行。
asp.net版本

新建一个aspx页面,在Page_Load里写入下面的代码

protected void Page_Load(object sender, EventArgs e)
{
Response.Clear();
Response.ContentType = "text/plain";
Response.Write(Request.UserHostAddress);
Response.End();
}
php版本

新建一个php文件,写入下面的代码

<?php
$ip = $_SERVER['REMOTE_ADDR'];
die($ip);
?>
asp版本

新建一个asp文件,写入下面的代码

<%
Response.Write(Request.ServerVariables("REMOTE_ADDR"))
Response.End
%>
2 发表于 2010-06-13 04:57 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
批处理怎样获取外网IP地址?
http://bbs.bathome.net/thread-2870-1-1.html

批处理如何正确获得外网、内网IP并纪录?
http://bbs.bathome.net/thread-4978-1-1.html

VBS获取外网IP
http://bbs.bathome.net/thread-546-1-1.html
3 发表于 2010-06-13 15:13 ·  中国 天津 电信
初级用户
★★
小鸟鸟
积分 120
发帖 74
注册 2010-05-08 01:53
16年会员
UID 166347
性别 男
来自 河北
状态 离线
斑竹我太爱你了!~
4 发表于 2010-06-13 21:51 ·  中国 湖北 潜江 电信
初级用户
积分 27
发帖 24
注册 2010-05-02 21:22
16年会员
UID 165987
性别 男
状态 离线
谢谢版主帮忙,将来做出成品文件一定上传让大家看下。
5 Re 4 楼 发表于 2010-06-13 22:56 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
自己去复制代码,运行即可。
6 发表于 2010-06-14 18:09 ·  中国 四川 南充 联通
高级用户
★★★
积分 609
发帖 374
注册 2006-08-02 22:38
20年会员
UID 59720
状态 离线
@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=



Last edited by ZJHJ on 2010-6-14 at 20:54 ]
论坛跳转: