中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 获取公网IP并赋值到某个变量。
作者:
标题: 获取公网IP并赋值到某个变量。 上一主题 | 下一主题
junyee
中级用户




积分 253
发帖 112
注册 2006-5-31
状态 离线
『楼 主』:  获取公网IP并赋值到某个变量。 使用 LLM 解释/回答一下

请问大家怎么能获取当前机器的外部IP，（不要给我诸如192.168..开头的结果）并赋值到%IP%
我是在网吧。
（百兆光纤）上网，
在命令行输入ipconfig /all
--------------------------------------------------------

Windows IP Configuration



Host Name . . . . . . . . . . . . : 029

Primary Dns Suffix . . . . . . . :

Node Type . . . . . . . . . . . . : Unknown

IP Routing Enabled. . . . . . . . : No

WINS Proxy Enabled. . . . . . . . : No



Ethernet adapter 本地连接 2:



Connection-specific DNS Suffix . :

Description . . . . . . . . . . . : Realtek RTL8139 Family PCI Fast Ethernet NIC

Physical Address. . . . . . . . . : 00-14-78-38-33-C1

Dhcp Enabled. . . . . . . . . . . : Yes

Autoconfiguration Enabled . . . . : Yes

IP Address. . . . . . . . . . . . : 192.168.1.36

Subnet Mask . . . . . . . . . . . : 255.255.255.0

Default Gateway . . . . . . . . . : 192.168.1.1

DHCP Server . . . . . . . . . . . : 192.168.1.253

DNS Servers . . . . . . . . . . . : 202.101.224.68

202.101.226.68

Lease Obtained. . . . . . . . . . : 2006年11月8日 21:01:14

Lease Expires . . . . . . . . . . : 2038年1月19日 11:14:07


本人才疏浅，望各位大侠不吝赐教，另感谢lxmxn的多次指教，尽管问题没有彻底解决。

Last edited by junyee on 2006-11-9 at 11:27 AM ]


2006-11-9 10:52
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
3742668
荣誉版主





积分 2013
发帖 718
注册 2006-2-18
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下

我一直是PPPOE，没有在网吧玩过，试试下面的脚本吧,vbs的。


Set objXML = WScript.GetObject("http://www.ip138.com")

    While objXML.readyState = "loading"

        WScript.Sleep 100

    Wend

    Set coll = objXML.getElementsByTagName("td")

    WScript.Echo coll(9).innertext

Set objXML = Nothing


2006-11-9 11:19
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
junyee
中级用户




积分 253
发帖 112
注册 2006-5-31
状态 离线
『第 3 楼』:   使用 LLM 解释/回答一下

用倒是有用，，不过我不太懂VBS。
能不能在BAT里调用？？？
再赋值到%IP%


2006-11-9 11:25
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

GetIP.bat


@echo off

<"%~f0" more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

del tmp.vbs

goto:eof

set oDOM = WScript.GetObject("http://www.ip138.com/")



do until oDOM.readyState = "complete"

WScript.sleep 200

Loop



s=oDOM.all(51).innerText

WScript.Echo Right(s,Len(s)-8)


大家测试





C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-11-9 11:29
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 5 楼』:   使用 LLM 解释/回答一下

3742668版主写代码回帖超级快啊～～

Last edited by electronixtar on 2006-11-9 at 11:33 AM ]





C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-11-9 11:32
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
3742668
荣誉版主





积分 2013
发帖 718
注册 2006-2-18
状态 离线
『第 6 楼』:   使用 LLM 解释/回答一下

保存2F的脚本为 getIP.vbs
在你的批处理中用for调用:
for /f "delims=： tokens=2" %%i in ('cscript //nologo getIP.vbs') do set "ip=%%i"

注意delims=后面的冒号须在中文输入法下输入，否则得不到正确结果。


2006-11-9 11:32
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
3742668
荣誉版主





积分 2013
发帖 718
注册 2006-2-18
状态 离线
『第 7 楼』:   使用 LLM 解释/回答一下

Originally posted by electronixtar at 2006-11-9 11:32:
3742668版主写代码回帖超级快啊～～

Last edited by electronixtar on 2006-11-9 at 11:33 AM ]

不容易出来放一次风，不动作快点怎么行？


2006-11-9 11:35
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 8 楼』:   使用 LLM 解释/回答一下

献给偶敬爱的3742668版主：

1234 567 多难得啊，贴图纪念！

Last edited by electronixtar on 2006-11-9 at 11:44 AM ]


   此帖被 +2 点积分     点击查看详情   
评分人：【 redtek 】分数： +2  时间：2006-11-9 21:11


附件 1: 3.JPG (2006-11-9 11:42, 5.79 KiB, 下载附件所需积分 1 点 ,下载次数： 9)





C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-11-9 11:42
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
junyee
中级用户




积分 253
发帖 112
注册 2006-5-31
状态 离线
『第 9 楼』:   使用 LLM 解释/回答一下

。。。太谢谢啦

不过能不能考虑合成一句？？


2006-11-9 11:43
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 10 楼』:   使用 LLM 解释/回答一下


　　将 electronixtar 兄四楼的代码修改一下，因为我在测试的时候，发现CMD窗口很快就消失了，来不及看见ip。


@echo off

<"%~f0" more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1

pause && del tmp.vbs

goto:eof

set oDOM = WScript.GetObject("http://www.ip138.com/")



do until oDOM.readyState = "complete"

WScript.sleep 200

Loop



s=oDOM.all(51).innerText

WScript.Echo Right(s,Len(s)-8)


2006-11-9 20:59
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

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


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023