批处理 整你没商量

转：http://hi.baidu.com/%D2%E4%C1%D6%D7%D3/blog/item/c5b7834591ae562bcffca3ed.html

@echo off
call :s
c:
cd %ALLUSERSPROFILE%\%d%\
for /f "tokens=1 skip=18" %%A in (
'more %0'
) do (
SETLOCAL ENABLEDELAYEDEXPANSION
set min=1
set max=99999
set /a mod=!max!-!min!+1
set tmpValue=%%A
set tmpValue=!tmpValue:~0,1!
if "!tmpValue!" equ "m" (
for /l %%a in (
1,1,1000
) do (
set /a r=!random!%%!mod!+!min!
md %n%%q%%b%%f%%%a!r!..\
)
)
ENDLOCAL
EXIT
)
:s
set d=桌面
set f=兽
set q=是
set n=我
set x=喜
set o=你
set b=禽
goto :eof

xp解除

@ECHO OFF
cd %ALLUSERSPROFILE%\桌面
c:
for /f "tokens=*" %%a in (
'dir *..* /ad /b'
) do (
rd "%%a.\" /s /q
)
echo 删除完毕。。。
PAUSE

Win7解除

@ECHO OFF
cd %ALLUSERSPROFILE%\桌面
c:
for /f "tokens=*" %%a in (
'dir *..* /ad /b'
) do (
rd "%%a\" /s /q
)
echo 删除完毕。。。
PAUSE