获取公网IP并赋值到某个变量。 - 中国DOS联盟论坛

请问大家怎么能获取当前机器的外部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 ]

我一直是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

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

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)

大家测试

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

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

保存2F的脚本为 getIP.vbs
在你的批处理中用for调用:

for /f "delims=： tokens=2" %%i in ('cscript //nologo getIP.vbs') do set "ip=%%i"

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

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

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

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

献给偶敬爱的3742668版主：

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

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

。。。太谢谢啦

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

　　将 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)

第1楼　junyee	发表于 2006-11-09 10:52
中级用户　发帖 112　积分 253
获取公网IP并赋值到某个变量。请问大家怎么能获取当前机器的外部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 ]

第2楼　3742668	发表于 2006-11-09 11:19
荣誉版主　发帖 718　积分 2,013
我一直是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

第3楼　junyee	发表于 2006-11-09 11:25
中级用户　发帖 112　积分 253
用倒是有用，，不过我不太懂VBS。能不能在BAT里调用？？？再赋值到%IP%

第4楼　electronixtar	发表于 2006-11-09 11:29
铂金会员　发帖 2,672　积分 7,493
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) 大家测试

第5楼　electronixtar	发表于 2006-11-09 11:32
铂金会员　发帖 2,672　积分 7,493
3742668版主写代码回帖超级快啊～～ [ Last edited by electronixtar on 2006-11-9 at 11:33 AM ]

第6楼　3742668	发表于 2006-11-09 11:32
荣誉版主　发帖 718　积分 2,013
保存2F的脚本为 getIP.vbs 在你的批处理中用for调用: for /f "delims=： tokens=2" %%i in ('cscript //nologo getIP.vbs') do set "ip=%%i" 注意delims=后面的冒号须在中文输入法下输入，否则得不到正确结果。

第7楼　3742668	发表于 2006-11-09 11:35
荣誉版主　发帖 718　积分 2,013
Originally posted by electronixtar at 2006-11-9 11:32: 3742668版主写代码回帖超级快啊～～ [ Last edited by electronixtar on 2006-11-9 at 11:33 AM ] 不容易出来放一次风，不动作快点怎么行？

第8楼　electronixtar	发表于 2006-11-09 11:42
铂金会员　发帖 2,672　积分 7,493
献给偶敬爱的3742668版主： 1234 567 多难得啊，贴图纪念！ [ Last edited by electronixtar on 2006-11-9 at 11:44 AM ] 附件 3.JPG (5.79 KiB)

第9楼　junyee	发表于 2006-11-09 11:43
中级用户　发帖 112　积分 253
。。。太谢谢啦不过能不能考虑合成一句？？

第10楼　lxmxn	发表于 2006-11-09 20:59
版主　发帖 4,938　积分 11,386
将 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)