朽木

@echo off
title [分区写保护] - By 朽木 && mode con cols=50 lines=15 &color 9f && color 4F
 
cls
echo on && echo 初始化 && echo off
call :line
echo    100%%
 
::拷贝diskpart
echo on && echo 复制文件 && echo off
call :line
echo    100%%
 
copy diskpart.exe "C:\WINDOWS\Temp\diskpart.exe" >nul
 
::跳转临时目录
C:
cd \
cd WINDOWS
cd Temp
 
::判断分区状态
echo on && echo 读取驱动器状态 && echo off
call :line
 
 
 
 
if exist locked.txt del "C:\WINDOWS\Temp\locked.txt" /f /q
 >lock.txt echo select disk 1
>>lock.txt echo select vol 4
>>lock.txt echo detail vol
>>lock.txt echo exit
 >locked.txt diskpart<lock.txt
 
if not exist locked.txt goto error
 
type locked.txt | find "只读                   : 否"  >nul&&goto golock
 
type locked.txt | find "只读                   : 是"  >nul&&goto gounlock
 
goto end
 
:golock
echo    可写
set go=n
set /p go=是否锁定驱动器？(Y/N)
if %go%==y goto lock
if not %go%==y goto end
 
goto error
:gounlock
echo    只读
set go=n
set /p go=是否解锁驱动器？(Y/N)
if %go%==y goto unlock
if not %go%==y goto end
 
goto error
:lock
:锁定
 
echo 锁定驱动器
 >lock.txt echo select vol 4
>>lock.txt echo att vol set readonly
>>lock.txt echo exit
diskpart<lock.txt
pause >nul
 
goto end
 
:unlock
:解锁
 
echo 解锁驱动器
 >lock.txt echo select vol 4
>>lock.txt echo att vol clear readonly
>>lock.txt echo exit
diskpart<lock.txt
del lock.txt
pause >nul
goto end
 
:error
::错误
 
echo 未知错误！
pause >nul
 
:end
::结束
 
echo on && echo 清理临时文件 && echo off
call :line
echo    100%%
 
 
del "C:\WINDOWS\Temp\locked.txt" /f /q
del "C:\WINDOWS\Temp\lock.txt" /f /q
del "C:\WINDOWS\Temp\diskpart.exe" /f /q
exit
 
:line
echo on && echo . && echo off
set b=
set a=■
set /a z=100
set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&
set /p = 　<nul&%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%