中国DOS联盟

@echo off&setlocal ENABLEDELAYEDEXPANSION
:start
title administrator 密码修改工具。exzzz 版权所有
echo.
echo 请输入分部名称，部分汉字、拼音、拼音缩写均可（至少2个字符）~~~
echo 输入 h 可查看帮助
set ting=
set /p ting=
if /I "%ting%"=="h" goto help
if "%ting%"=="" goto start

rem 下面这段确定要跳过的行数num，避免了查询无效数据
for /f "delims=:" %%a in ('findstr /n /I /c:":data" 分部密码修改.bat') do set num=%%a
for /f "skip=%num%" %%a in (分部密码修改.bat) do echo %%a>>data.dat

set n=0
echo 符合条件的分部列表如下：
echo.
for /f "tokens=1-5 delims=^|" %%a in ('findstr /I /c:"%ting%" data.dat') do (
        set /a n=n+1
        set tingname!n!=%%b
        set tingpw!n!=%%e
)
del /f /s /q data.dat >nul 2>nul
for /l %%i in (1,1,%n%) do (
        echo 编号：%%i  分部：!tingname%%i!  管理员密码：【!tingpw%%i!】
)
:select
echo.
echo 请输入分部的编号以便设置本机管理员密码：
set ting=
set /p ting=

if "%ting%"=="" goto select

echo.
echo 将执行命令【net user administrator !tingpw%ting%!】
net user administrator !tingpw%ting%!
pause

:exit
exit


:help
title 帮助文件。内置密码文件为 20080115 版本    exzzz 版权所有
cls
echo.
echo 输入分部的名字、拼音、缩写都可以模糊查询到数据
echo 内置的密码表是20080115版本的，如果以后更新了，请
echo 编辑本文件，并将最后的【:data】小节依样添加上去，
echo 并用 ^| 符号隔开，格式如下：
echo.
echo 序号^|分部名称^|拼音缩写^|拼音全称密码
echo.
pause
cls
goto :start


:data
1|洪湖|hh|honghu|z94skqy
2|湖贝|hb|hubei|b6og0hz
3|火车站|hcz|huochezhan|hk8bn3v
4|宝安路|bal|baoanlu|cxfss34
5|布心|bx|buxin|kqyi7ib
6|春风路|cfl|chunfenglu|0hzrvwg
7|翠竹|cz|cuizhu|8bn3vc2
8|东门|dm|dongmen|fwa8c2e
9|莲塘|lt|liantang|o6xjkfd
10|泥岗|ng|nigang|ytp0bhp
11|动感地带|dgdd|donggandidai|gm72e37
12|清水河|qsh|qingshuihe|8c72ezn
13|赛博|sb|saibo|jjkfdl4
14|沙头角|stj|shatoujiao|qbhpqz9
15|笋岗|sg|sungang|2e3f758
16|盐田港|ytg|yantiangang|2z3ngsm
17|怡景|yj|yijing|ayqxodh
18|图书馆|tsg|tushuguan|u6ny05n
19|八卦岭|bgl|bagualing|qht9j9w
20|白石洲|bsz|baishizhou|1zvj85e
21|彩田|ct|caitian|2w7xdrc
22|车公庙|cgm|chegongmiao|u2lrb8d
23|花果山|hgs|huaguoshan|qzjxhfr
24|华强北|hqb|huaqiangbei|s8obfay
25|景田|jt|jingtian|bvmicm6
26|南油|ny|nanyou|3tupn4q
27|埔尾|pw|puwei|kilzya3

wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="%wkgp%" >nul 2>nul