@echo off&setlocal enabledelayedexpansion
:main
title 计算机用户控制系统&color 0a&mode con cols=80 lines=30
cls
echo,
echo,
echo,
echo,
echo                             请选择你需要的功能
echo================================================================================
echo,
echo                         1.查询计算机当前所有用户           
echo                         2.为计算机添加用户
echo                         3.删除计算机用户
echo                         4.更改用户密码
echo                         5.删除用户密码
echo                         6.查看当前用户组
echo                         7.为计算机添加用户组
echo                         8.删除计算机用户组
echo                         9.更改用户的用户组
echo                         10.退出请按q
echo,
echo                                                      本程序任意处空格返回主菜单
echo ===============================================================================
echo                                                               --jakorzhang 制作
goto start

:ushd
cls
echo,
echo,
echo ===============================================================================
echo 当前的用户有：
net user
echo,
echo                                                      本程序任意处空格返回主菜单
echo ===============================================================================
echo,
goto :eof

:lghd
cls
echo,
echo,
echo ===============================================================================
echo 当前的用户组有：
net localgroup
echo,
echo                                                      本程序任意处空格返回主菜单
echo ===============================================================================
echo,
goto :eof

:9hd
cls
echo,
echo ===============================================================================
echo 当前的用户有：
net user
echo ===============================================================================
echo 当前的用户组有：
net localgroup
echo,
echo                                                      本程序任意处空格返回主菜单
echo ===============================================================================
echo,
echo,
goto :eof

:scd
set /p choice=您好！操作成功！是否再次操作该功能？(y/n)
if "%choice%"=="y" (
goto %now%
) else (
goto main
)
goto :eof

:rt
if "%name%"==" " goto main
goto :eof

:start
set /p choice=请选择功能：
if "%choice%"=="1" goto 1
if "%choice%"=="2" goto 2
if "%choice%"=="3" goto 3
if "%choice%"=="4" goto 4
if "%choice%"=="5" goto 5
if "%choice%"=="6" goto 6
if "%choice%"=="7" goto 7
if "%choice%"=="8" goto 8
if "%choice%"=="9" goto 9
if "%choice%"=="q" (
goto 10
) else (
goto main
)

:1
set now=1
call :ushd
echo 任意键返回主菜单&pause>nul
goto main


:2
set now=2
call :ushd
set /p name=请输入将要添加的用户名：
call :rt
:sp
set /p pw=请设定该用户的最新密码（回车将不设置密码）：
if "%pw%"==" " goto main
set /p rpw=请确认该用户的最新密码（回车跳过）：
if "%rpw%"==" " goto main
if "%pw%"=="%rpw%" (
echo 验证成功！正在执行...
goto %now%cmd
) else (
echo 密码输入不一致请重新输入！&pause>nul
goto sp
)
goto :eof
:2cmd
net user %name% %pw% /add>nul
if errorlevel 2 (
set /p name=该用户已存在，请查实后重新输入!:
call :rt
goto 2cmd
)
if errorlevel 1 (
set /p name=请输入正确格式的用户名，以数字和字母为内容!:
call :rt
goto 2cmd
) else (
call :scd
)
pause


:3
set now=3
call :ushd
echo,
set /p name=请输入要删除的用户名：
call :rt
:3cmd
net user %name% /del>nul
if errorlevel 2 (
set /p name=该用户不存在或者无法删除用户请重新输入：
call :rt
goto 3cmd
)
if errorlevel 1 (
set /p name=输入有错误，请重新输入：
call :rt
goto 3cmd
) else (
call :scd
)

:4
set now=4
call :ushd
set /p name=请输入需要修改密码的用户：
call :rt
call :sp
:4cmd
net user %name% %pw% >nul
if errorlevel 1 (
set /p name=用户名输入错误请重新输入！密码默认为刚才输入内容：
call :rt
goto 4cmd
) else (
call :scd
)

:5
set now=5
call :ushd
set /p name=请输入要删除密码的用户名：
call :rt
:5cmd
echo,&echo,|net user %name% *>nul
if errorlevel 1 (
set /p name=用户名错误，请重新输入：
call :rt
goto 5cmd
) else (
call :scd
)

:6
call :lghd
echo 任意键返回主菜单&pause>nul
goto main

:7
set now=7
call :lghd
set /p name=请输入将要添加的用户组名：
call :rt
:7cmd
net localgroup %name% /add>nul
if errorlevel 2 (
set /p name=该用户组已存在，请查实后重新输入!:
call :rt
goto 7cmd
)
if errorlevel 1 (
set /p name=请输入正确格式的用户组名，以数字和字母为内容!:
call :rt
goto 7cmd
) else (
call :scd
)



:8
set now=8
call :lghd
echo,
set /p name=请输入要删除的用户组名：
call :rt
:8cmd
net localgroup %name% /del>nul
if errorlevel 2 (
set /p name=该用户组不存在或者无法删除用户组请重新输入：
cal :rt
goto 8cmd
)
if errorlevel 1 (
set /p name=输入有错误，请重新输入：
call :rt
goto 8cmd
) else (
call :scd
)

@echo off


:92cmd
net localgroup %group% %name% /del
goto check
goto :eof

:scd
set /p choice=您好！操作成功！是否再次操作该功能？(y/n)
if "%choice%"=="y" (
goto %now%
) else (
goto main
)
goto :eof

:9
set now=9&mode con cols=80 lines=60
call :9hd
echo                        1.添加用户到组
echo                        2.删除用户所在组
set /p choice=请选择：
if "%choice%"==" " goto main
if "%choice%"=="1" goto 91
if "%choice%"=="2" (
goto 92
) else (
echo 输入错误请重新输入！&pause>nul
goto 9
)

:91
set /p name=请输入想要更改的用户名：
if "%name%"==" " goto main
set /p group=请输入想要更改的组：
if "%group%"==" " goto main
:91cmd
net localgroup %group% %name% /add
if errorlevel 2 (
set /p group=输入的组名称错误或该用户已经存在于该组，请重新检查输入:
if "%group%"==" " goto main
goto 91cmd
)
if errorlevel 1 (
set /p name=用户名输入错误，或已有该用户。请重新检查输入：
call :rt
goto 91cmd
) else (
call :scd
)

:92
set /p name=请输入想要更改的用户名：
if "%name%"==" " goto main
set /p group=请输入想要更改的组：
if "%group%"==" " goto main
:92cmd
net localgroup %group% %name% /del
if errorlevel 2 (
set /p group=输入的组名称错误或该用户已经存在于该组，请重新检查输入:
if "%group%"==" " goto main
goto 92cmd
)
if errorlevel 1 (
set /p name=用户名输入错误，或已有该用户。请重新检查输入：
call :rt
goto 92cmd
) else (
call :scd
)

:10
exit
复制代码

:scd
set /p choice=您好！操作成功！是否再次操作该功能？(y/n)
if "%choice%"=="y" (
    goto %now%
) else (
    goto main
)
goto :eof
复制代码