批处理高手进来帮忙(批处理获取外网IP并上传到FTP) - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

作者:

标题: 批处理高手进来帮忙(批处理获取外网IP并上传到FTP)

xxniao
初级用户

积分 66
发帖 23
注册 2006-2-27
来自浙江
状态离线

『楼主』: 批处理高手进来帮忙(批处理获取外网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服务器上面！多谢！！！如果有更好的方法那就更好了 (对不起版主，由于刚刚那贴不能再编辑了所以另起新贴，请删除别一贴)

2008-2-10 13:55

查看资料发送邮件访问主页发短消息网志

编辑帖子回复引用回复

vkill
金牌会员

积分 4103
发帖 1744
注册 2006-1-20
来自甘肃.临泽
状态离线

『第 2 楼』:

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

2008-2-10 23:36

查看资料发送邮件访问主页发短消息网志

编辑帖子回复引用回复

xx44t10
初级用户

积分 23
发帖 11
注册 2007-9-7
状态离线

『第 3 楼』:

@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

2008-2-11 22:59

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

polalisi
新手上路

积分 2
发帖 1
注册 2008-2-23
状态离线

『第 4 楼』:

ftp -n open ｆｔｐ服务器的ip地址端口 user 用户名密码 prompt mput c:\ip.txt bye

2008-2-24 01:00

查看资料发送邮件发短消息网志

编辑帖子回复引用回复