Board logo

标题: 如何获取外网IP,急,在线等~~ [打印本页]

作者: 13066211     时间: 2007-4-7 06:04    标题: 如何获取外网IP,急,在线等~~
如何获取外网IP,不管你现在是否在外网~~
最好能上传到指定FTP,或有更好的方法也可以~~

作者: 13066211     时间: 2007-4-7 06:27
没有人会吗
还是我的问题太难了~~~

作者: 13066211     时间: 2007-4-7 06:49
@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)-6)


有人能把这些改一下嘛``
好你不能用了

作者: estar     时间: 2007-4-7 07:08
GetIP.bat


@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1
echo ' >nul && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/")

do until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.documentElement.innerText
set re = New RegExp
re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
For Each m in re.Execute(s)
WScript.Echo m
Next

作者: 13066211     时间: 2007-4-7 07:19
楼上的,谢谢,但能把他输入到.txt中吗

作者: everest79     时间: 2007-4-7 07:23
最简单的方法,你在cscript //NoLogo /e:vbscript tmp.vbs %1后加上>file.txt就可以了

作者: 13066211     时间: 2007-4-7 07:39
有没有办法上传到FTP服务器.
比如:一个局网20到电脑~`
把每台电脑的IP都上传到服务器`~
但只要一个文件.包括所有电脑的IP

作者: everest79     时间: 2007-4-7 12:07
应用目的是什么?