标题: 获取公网IP并赋值到某个变量。 [打印本页]
作者: junyee 时间: 2006-11-9 10:52 标题: 获取公网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 ]
作者: 3742668 时间: 2006-11-9 11:19
我一直是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
While objXML.readyState = "loading"
WScript.Sleep 100
Wend
Set coll = objXML.getElementsByTagName("td")
WScript.Echo coll(9).innertext
Set objXML = Nothing
作者: junyee 时间: 2006-11-9 11:25
用倒是有用，，不过我不太懂VBS。
能不能在BAT里调用？？？
再赋值到%IP%
作者: electronixtar 时间: 2006-11-9 11:29
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)
大家测试<"%~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)
作者: electronixtar 时间: 2006-11-9 11:32
3742668版主写代码回帖超级快啊～～
[ Last edited by electronixtar on 2006-11-9 at 11:33 AM ]
作者: 3742668 时间: 2006-11-9 11:32
保存2F的脚本为 getIP.vbs
在你的批处理中用for调用:
for /f "delims=： tokens=2" %%i in ('cscript //nologo getIP.vbs') do set "ip=%%i"
注意delims=后面的冒号须在中文输入法下输入，否则得不到正确结果。作者: 3742668 时间: 2006-11-9 11:35
| Quote: | |
|
不容易出来放一次风，不动作快点怎么行？
作者: electronixtar 时间: 2006-11-9 11:42
献给偶敬爱的3742668版主：
1234 567 多难得啊，贴图纪念！
[ Last edited by electronixtar on 2006-11-9 at 11:44 AM ]
附件 1:3.JPG (2006-11-9 11:42, 5.79 K, 下载附件所需积分 1点 ,下载次数： 9)
作者: junyee 时间: 2006-11-9 11:43
。。。太谢谢啦
不过能不能考虑合成一句？？
作者: lxmxn 时间: 2006-11-9 20:59
将 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)
<"%~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)