使用本程序可以禁止电脑使用USB设备.
代码如下
REM QBFC Project Options Begin
:: HasVersionInfo: No
REM Companyname:
REM Productname:
REM Filedescription:
REM Copyrights:
REM Trademarks:
REM Originalname:
REM Comments:
REM Productversion: 0. 0. 0. 0
REM Fileversion: 0. 0. 0. 0
REM Internalname:
REM Appicon:
REM QBFC Project Options End
@echo off
color 0b
:start
cls
echo usb权限控制 程序设计：高旭
echo 版权所有 不许用于商业用途
echo 修改日期:2009/06/13
echo 父亲节特别版！祝爸爸节日快乐！
echo 1 为禁用 USB 移动储存设备
echo.
echo 2 为解除禁用 USB 移动储存设备
set/p N=请选择:
if "%N%"=="" goto k
echo %N%|findstr "^[0-9]*$">nul &&echo 输入正确||goto ABC
if %N% equ 2 goto 2
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUsbStor" /v ImagePath /t Reg_Expand_Sz /d USB移动储存设备已经被禁掉 /f
echo USB移动储存设备已经被禁掉,按任意键退出.
pause>nul 2>nul
exit
:2
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUsbStor" /v ImagePath /t Reg_Expand_Sz /d system32DRIVERSUSBSTOR.SYS /f
echo USB移动储存设备已可以正常使用,按任意键退出.
pause>nul 2>nul
exit
:ABC
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!你输入的是 %N% 不符合规定，请重新输入",10,"警告:",64)(window.close)
goto start
:k
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!你没有输入任何选项 不符合规定，请重新输入",10,"警告:",64)(window.close)
goto start
end