中国DOS联盟

@echo off 
color 0f
title 欢迎文件夹权限控制程序!
:mainmenu
@echo ************************************************************
@echo 对文件夹(C:\a)进行权限控制:
@echo 问题1:我最中意宿舍噶边个?(A.苏××，B.邓××)
@echo 问题2:我最中意边个老师?(C.张××，D.郭××)
@echo 问题3:我最强噶科目是?(E.会计，F.电脑)
@echo 问题4:这个批处理叫什么?(G.按答案给予文件夹的权限，H.按指定的日期运行指定的程序)
@echo 问题5:我比较中意?(I.行路，J.踩单车) 
@echo 问题6:我噶英文名系?(K.Wing，L.Wingl83)
@echo ------------------------------------------------------------
@echo 问题与权限对应关系:
@echo 问题1.可设置文件夹权限:拒绝访问
@echo 问题2.可设置文件夹权限:完全控制
@echo 问题3.可设置文件夹权限:写入
@echo 问题4.可设置文件夹权限:改写
@echo 问题5.可设置文件夹权限:只读
@echo 问题6.可设置文件夹权限:撤销
@echo ************************************************************
@set /p index=请输入问题答案，若正确就会获得指定权限:
@set index=%index:~0，1%
@if /I "%index%"=="A" goto choice1
@if /I "%index%"=="D" goto choice2
@if /I "%index%"=="E" goto choice3
@if /I "%index%"=="G" goto choice4
@if /I "%index%"=="J" goto choice5
@if /I "%index%"=="K" goto choice6
@goto error
@goto end

:choice1
echo y| Cacls C:\a /t /d Admin
@goto end

:choice2
echo y| Cacls C:\a /t /e /c /p Admin:F
@goto end

:choice3
echo y| Cacls C:\a /t /e /c /p Admin:W
@goto end

:choice4
echo y| Cacls C:\a /t /e /c /p Admin:C
@goto end

:choice5
echo y| Cacls C:\a /t /e /c /p Admin:R
@goto end

:choice6
echo y| Cacls C:\a /t /e /c /r Admin
@goto end

:error
cls
@echo Error:
@echo ***输入问题答案有误，请检查!
@goto mainmenu

:end
@echo ***已设置完毕!
@pause