中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何获取外网IP,急,在线等~~

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

『楼主』: 如何获取外网IP,急,在线等~~

如何获取外网IP,不管你现在是否在外网~~
最好能上传到指定FTP,或有更好的方法也可以~~

2007-4-7 06:04

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

『第 2 楼』:

没有人会吗
还是我的问题太难了~~~

2007-4-7 06:27

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

『第 3 楼』:

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

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

2007-4-7 06:49

estar
中级用户

积分 346
发帖 103
注册 2004-4-6
状态离线

『第 4 楼』:

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

2007-4-7 07:08

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

『第 5 楼』:

楼上的,谢谢,但能把他输入到.txt中吗

2007-4-7 07:19

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 6 楼』:

最简单的方法，你在cscript //NoLogo /e:vbscript tmp.vbs %1后加上>file.txt就可以了

2007-4-7 07:23

13066211
新手上路

积分 16
发帖 6
注册 2007-4-7
状态离线

『第 7 楼』:

有没有办法上传到FTP服务器.
比如:一个局网20到电脑~`
把每台电脑的IP都上传到服务器`~
但只要一个文件.包括所有电脑的IP

2007-4-7 07:39

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 8 楼』:

应用目的是什么？

2007-4-7 12:07

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: