{求助}批处理高手进来帮忙！！ - 中国DOS联盟论坛

@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服务器上面！多谢！！！

第1楼　xxniao	发表于 2008-02-10 13:50
初级用户　发帖 23　积分 66　来自浙江
{求助}批处理高手进来帮忙！！ @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服务器上面！多谢！！！