Полезные и безполезные скрипты и примеры BAT файлов. БФ.

for /f "usebackq delims=" %%d in (`"dir /ad/b/s | sort /R"`) do rd "%%d"

FOR /L %%i IN (1,1,254) DO ping -n 1 172.16.16.%%i | FIND /i "ttl" >> find_local_ip.txt

rem echo off
cd z:\Backup\stip\tocd\
set log=z:\Backup\stip\tocd.log
set nlog=z:\Backup\stip\nero.log

for /D %%i in (*) do set label=%%i

if not defined label exit
set burpPath=z:\Backup\stip\tocd\%label%

date /T
time /T

echo "-------------------------------------------------- >> %log%
date /T >> %log%
time /T >> %log%
echo %label% , %burpPath% >> %log%

c:\Programm\Ahead\Nero\NeroCmd.exe --dvd --write --iso %label% --real --no_user_interaction --drivename D --detect_non_empty_cdrw --force_erase_cdrw --disable_eject_after_erase --speed 10 --volume_set %label% --publisher UIT --copyright UIT --verify --disable_eject --error_log "C:\NeroErrLog.txt" "%burpPath%\*.*" --recursive >>%nlog%

time /T >> %log%
time /T
set label=
cd z:\Backup\stip\

@echo off
Echo This batch file will Set Service Object Security for WUAUSERV & BITS.
REM Result will be written to %temp%\SetServiceObjectSecurity.log and then launched in Notepad.
Echo Please wait...
@echo on
sc sdset bits "D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)" >%temp%\SetServiceObjectSecurity.log
sc sdset wuauserv "D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)" >>%temp%\SetServiceObjectSecurity.log
@echo off

notepad %temp%\SetServiceObjectSecurity.log 
Echo Open %temp%\SetServiceObjectSecurity.log for SUCCESS entry.
Echo Open the Services applet from control panel to see if the services are started.
Echo For any errors; report on https://groups.msn.com/NTarabia
@echo off
Pause

SET FOLDER=%DATE:~-4%-%DATE:~3,2%-%DATE:~0,2%
SET ARCFOLDER=Z:\_exchange\%FOLDER%
mkdir %ARCFOLDER%