落絮飞雁

使用本程序可以禁止电脑使用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

EXE版本下载:
镜像下载|dropbox分流