|
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
While
WScript.Sleep
Wend
Set
WScript.Echo
Set
|
|
2006-11-9 11:19 |
|
|
junyee
中级用户
  
积分 253
发帖 112
注册 2006-5-31
状态 离线
|
|
2006-11-9 11:25 |
|
|
electronixtar
铂金会员
      
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
GetIP.bat
@echo off
<"%~f0" more +5 >tmp.vbs
cscript
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
状态 离线
|
|
2006-11-9 11:42 |
|
|
junyee
中级用户
  
积分 253
发帖 112
注册 2006-5-31
状态 离线
|
|
2006-11-9 11:43 |
|
|
lxmxn
版主
       
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第 10 楼』:
使用 LLM 解释/回答一下
将 electronixtar 兄四楼的代码修改一下,因为我在测试的时候,发现CMD窗口很快就消失了,来不及看见ip。
@echo off
<"%~f0" more +5 >tmp.vbs
cscript
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 |
|