中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]获取信息并保存为以宽带账号命名并上传到FTP

zlsanhong
新手上路

积分 15
发帖 14
注册 2010-2-26
状态离线

『楼主』: [求助]获取信息并保存为以宽带账号命名并上传到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 ]

2010-3-6 01:24