标题: 批处理高手进来帮忙(批处理获取外网IP并上传到FTP) [打印本页]
作者: xxniao 时间: 2008-2-10 13:55 标题: 批处理高手进来帮忙(批处理获取外网IP并上传到FTP)
{求助}批处理高手进来帮忙！！(批处理获取外网IP并上传到FTP服务器)
@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1>ip.txt
echo >nul && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp")
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
哪们高手能利用以上代码帮我写一个批处理，作用就是通过以上代码产生的IP.TXT 通过批处理方式上传到FTP服务器上面！多谢！！！
如果有更好的方法那就更好了
(对不起版主，由于刚刚那贴不能再编辑了所以另起新贴，请删除别一贴)
作者: vkill 时间: 2008-2-10 23:36
@echo off
for /f "tokens=*" %%? in ('curl http://www.ip138.com/ip2city.asp ^| sed -r "/您的IP地址是/!d;{s/<[^>]*>//g}" ') do (
p-mailsend /u test@qq.com /p ** /t test@qq.com /s "%date%,%time%,%%?"
)
[ Last edited by vkill on 2008-2-10 at 11:50 PM ]for /f "tokens=*" %%? in ('curl http://www.ip138.com/ip2city.asp ^| sed -r "/您的IP地址是/!d;{s/<[^>]*>//g}" ') do (
p-mailsend /u test@qq.com /p ** /t test@qq.com /s "%date%,%time%,%%?"
)
作者: xx44t10 时间: 2008-2-11 22:59
@echo off
for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i
echo %ip%>ip.txt ::取外网IP 下面的自己把些文件上传到FTP上就OK了！
pause
作者: polalisi 时间: 2008-2-24 01:00
ftp -n
open ｆｔｐ服务器的ip地址 端口
user 用户名
密码
prompt
mput c:\ip.txt
bye