标签： 批处理

USB 控制台 – 父亲节特别版

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

扫描IP的简单工具

一个用批处理写的扫描内网IP的小工具~

@Echo off

　　date /t > IPList.txt

　　time /t >> IPList.txt

　　echo =========== >> IPList.txt

　　For /L %%f in （1，1，100） Do Ping.exe -n 2 192.168.1.%%f 　 Find

　　"Request timed out." & echo 192.168.1.%%f Timed Out >>

　　IPList.txt & echo off

　　cls

　　Echo Finished！

　　@Echo on

　　Notepad.exe IPList.txt

桌面文件备份工具

一个批处理,可以方便的备份桌面上的文件.

代码:

@echo off
mode con cols=78 lines=10&color b0
setlocal enabledelayedexpansion
Title 载入中...


::备份文件次数,超过此次数，依次向前替换上一次备份
set strBakCount=10
::目的确路径
set strBakPath=BakFile
::备份路径
set strFo=%userprofile%桌面
::备份类型
set strOP=txt doc xls pdf lnk
::执行命令
set strRunName=桌面文档备份


::备份文件夹初始化
md !strBakPath! >nul 2>nul
md ... >nul 2>nul
for /l %%i in (0,1,!strBakCount!) do (
	md !strBakPath!!strBakPath!s%%i >nul 2>nul
	attrib +s +a +r !strBakPath!!strBakPath!s%%i)
::初始化与读取操作数SaveCount
if not exist !strBakPath!!strBakPath!s0DatSet.dat echo SaveCount=0 >!strBakPath!!strBakPath!s0DatSet.dat
for /f "tokens=1-2 delims==" %%i in ('type !strBakPath!!strBakPath!s0DatSet.dat') do (
	if /i "%%i"=="SaveCount" set strSaveCount=%%j
	if /i "%%i"=="DateTime" set strDateTime=%%j)
set /a strSaveCount+=0
Title [!strRunName!] - Max:!strBakCount! - Done:!strSaveCount!  - Last Time:!strDateTime!

echo  [备份类型] : %strOP%
echo  [源 路 径] : %strFo%
echo  [目标路径] : %strBakPath%
echo ______________________________________________________________________________
echo.&echo                             按任意键开始备份...&pause>nul

::备份操作判断
if !strSaveCount! geq !strBakCount! (
	::备份文件夹已满
	for /l %%i in (1,1,!strBakCount!) do (
		set /a strTmp=%%i - 1
		move /y "!strBakPath!!strBakPath!s%%i*.*" !strBakPath!!strBakPath!s!strTmp! >nul 2>nul)
	for %%i in (!strOP!) do copy /y "!strFo!*.%%i" !strBakPath!!strBakPath!s!strBakCount! >nul 2>nul
)else (
	::备份文个夹未满
	set /a strSaveCount+=1

	for %%i in (!strOP!) do copy /y "!strFo!*.%%i" !strBakPath!!strBakPath!s!strSaveCount! >nul 2>nul)
::后续操作
del /q !strBakPath!!strBakPath!s0!strFo! >nul 2>nul
echo SaveCount=!strSaveCount! >!strBakPath!!strBakPath!s0DatSet.dat
echo DateTime=%date:~0,10%,%time:~0,5% >>!strBakPath!!strBakPath!s0DatSet.dat
echo.&echo                             备份完成.&pause>nul



cls&echo.
set /p OP=              是否打开最后一次备份所在文件夹 [y/n]? ：
if /i "!OP!"=="y" start !strBakPath!!strBakPath!s!strSaveCount!

隐藏私密文件到我的电脑

通过批处理实现:把一个文件夹变成”我的电脑”.点击后显示计算机各个分区而不是文件夹内的资料.从而实现隐藏功能

使用方法：
1，将需要隐藏的文件夹更名为我的电脑
2，将本程序与“我的电脑”文件夹处于同一目录下
3，选择“加密”，“解密”即可

@echo off&mode con lines=10 cols=57&title 我的电脑隐藏-powered by LXFY
set str1=本程序由落絮飞雁开发，受国际著作权法保护
set str2=欢迎推广本程序！欢迎向我们反馈
set str3=发现更多：luoxufeiyan.howbbs.com
echo.
for /l %%i in (1,1,28) do (set/p=—nul)
echo.
for /l %%i in (1,1,3) do (
   for /l %%j in (1,1,%%i) do set/p=     nul)
   echo.
)
for /l %%i in (1,1,28) do (set/p=—nul)
echo.
echo.
cls
echo.      -----------------------------------------
echo       使用方法：
echo        1，将需要隐藏的文件夹更名为我的电脑
echo        2，将本程序与“我的电脑”文件夹处于同一目录下
echo        3，选择“加密”，“解密”
echo       -----------------------落絮飞雁开发------
echo.
set select=
set/p select=           1为加密，2为解密
echo %select% | findstr "" || echo 不好意思，您的输入不对，请重新输入. && pause && goto again
if %select%==1 goto 1：
if %select%==2 goto 2：
goto :again
1:
ren 我的电脑 我的电脑;{20D04FE0-3AEA-1069-A2D8-08002B30309D}
end
1:
ren 我的电脑;{20D04FE0-3AEA-1069-A2D8-08002B30309D} 我的电脑
end

禁用USB接口的方法

通过批处理来禁用或者启用USB接口的方法.我的USB管理软件就是基于这个开发的.
禁用:

@echo off COPY %WINDIR%infusbstor.inf %WINDIR%usbstor.inf COPY %WINDIR%infusbstor.PNF %WINDIR%usbstor.PNF DEL %WINDIR%infusbstor.inf DEL %WINDIR%infusbstor.PNF reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUSBSTOR" /v Start /t reg_dword /d 4 /f echo on

启用:

@echo off COPY %WINDIR%usbstor.inf %WINDIR%infusbstor.inf COPY %WINDIR%usbstor.PNF %WINDIR%infusbstor.PNF reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUSBSTOR" /v Start /t reg_dword /d 3 /f echo on