中国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 ]

。。。太谢谢啦

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