中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 急!!!批处理查看本机IP和外网IP
作者:
标题: 急!!!批处理查看本机IP和外网IP 上一主题 | 下一主题
sea1112
初级用户





积分 131
发帖 119
注册 2007-6-12
来自 gz
状态 离线
『楼 主』:  急!!!批处理查看本机IP和外网IP

急!!!批处理查看本机IP和外网IP

问:批处理可以做到查外网IP吗?(本地IP是:192.168.1.2~254,这里是内网的)

2008-3-18 14:23
查看资料  发送邮件  发短消息 网志  OICQ (24278528)  编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 2 楼』:  

可以,但不知道你要查看哪个外网,是局域网服务器主机的外网ip吗?

2008-3-18 14:35
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
dikex
高级用户

潜水修练批处理



积分 788
发帖 366
注册 2006-12-31
状态 离线
『第 3 楼』:  

外网IP
利用wget.exe(http://www.yx127.com/tools/wget_1.82.rar)
@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




正在潜水修练的批处理小白
2008-3-18 14:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
sea1112
初级用户





积分 131
发帖 119
注册 2007-6-12
来自 gz
状态 离线
『第 4 楼』:  

还要下文件啊,我做了一个。
@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

set "wip=%%i"
echo 本机外网IP是     %wip%>>ip.txt
del apnic.vbs /q

2008-3-18 14:47
查看资料  发送邮件  发短消息 网志  OICQ (24278528)  编辑帖子  回复  引用回复
dikex
高级用户

潜水修练批处理



积分 788
发帖 366
注册 2006-12-31
状态 离线
『第 5 楼』:  

vbs和批处理的差别之一:
批处理没有自带的下载命令;
纯批处理的话就是用wget了。

P.S. 楼上的有语法错误(貌似复制——粘贴时换行出问题了),修改了一下:
@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
[ Last edited by dikex on 2008-3-18 at 03:01 PM ]



正在潜水修练的批处理小白
2008-3-18 14:57
查看资料  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 6 楼』:  

我觉得还是用tracert好些:
tracert www.baidu.com
pause
在随后出现的ip列表中由上往下第一个非局域网ip就是局域网的外网ip,至于要把它单独列出来是不是没这个必要了。

2008-3-18 14:58
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
dikex
高级用户

潜水修练批处理



积分 788
发帖 366
注册 2006-12-31
状态 离线
『第 7 楼』:  

觉得tracert有时会有的奇怪:

如现在我的IP是59.41.32.*

但tracert www.baidu.com的结果是:

Tracing route to www.a.shifen.com [220.181.37.55]
over a maximum of 30 hops:

  1    43 ms    42 ms    43 ms  220.181.37.55

Trace complete.



正在潜水修练的批处理小白
2008-3-18 15:01
查看资料  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 8 楼』:  试试这个:


@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%
注:在我这里(xp+sp2环境)skip=6,不知道你那里是要设为5还是6?
也可以这样:
@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%
[ Last edited by zw19750516 on 2008-3-18 at 05:33 PM ]

2008-3-18 16:17
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: