闲来无事做了一个批处理的win10账号管理

@echo off
%1 mshta vbscript:CreateObject(“Shell.Application”).ShellExecute(“cmd.exe”,”/c %~s0 ::”,””,”runas”,1)(window.close)&&exit
cd /d “%~dp0”

:menu
cls
net user
title 账户管理
echo.
@echo ——————————————-1)添加账号——————–
@echo ——————————————-2)删除账号——————–
@echo ——————————————-3)修改密码——————–
@echo ——————————————-4)删除账户管理员权限———-
@echo ——————————————-5)添加管理员权限————–
@echo ——————————————-6)查看账号——————–
@echo ——————————————-7)退出————————
echo.

set /p c= 输入你的选择:
echo.

if ‘%c%’==’1’ goto :go
if ‘%c%’==’2’ goto :del
if ‘%c%’==’3’ goto :update
if ‘%c%’==’4’ goto :clear
if ‘%c%’==’5’ goto :insert
if ‘%c%’==’6’ goto :select
if ‘%c%’==’7’ goto :close

:go
set /p name=————-输入账号：
set /p pwd=————–输入密码：

net user %name% %pwd% /add
goto :admin

:del
set /p de=输入要删除的账号：
net user %de% /del
pause
goto:menu

:admin
set /p ad=是否添加为管理员（输入Y或N）：
if ‘%ad%’==’y’ goto :add
cls
goto :menu

:add
net localgroup administrators %name% /add
pause
cls
goto:menu

:update
set /p names=输入要修改的账户（不输入则默认为当前账户）：
set /p pwd=输入要修改的密码：
set /p pwds=确认密码：
if ‘%names%’==”” goto :default
if %pwd%==%pwds% goto:pwd
goto:no

:pwd
net user %names% %pwds%
pause
cls
goto menu

:no
echo.——————两次密码不一致，请重新输入—————–
pause
cls
goto menu

:default
net user %username% %pwds%
pause
cls
goto menu

:close
eixt

:clear
set /p name=输入要删除权限的账户：
net localgroup administrators %name% /delete
echo 管理员权限已删除
pause
:menu

:insert
set /p name=输入要添加权限的账户：
net localgroup administrators %name% /add
pause
cls
goto:menu

:select
set /p name=输入要查看的账户：
net user %name%
pause
cls
goto:menu

::原创