中国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
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

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


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



论坛跳转: