elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
29 Mayo 2012, 09:21  


Tema destacado: Suscripción al boletín mensual de elhacker.net

+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting (Moderadores: Novlucker, Leo Gutiérrez., EleKtro H@cker)
| | |-+  Programita para eliminar LNK y recuperar carpetas
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Programita para eliminar LNK y recuperar carpetas  (Leído 1,398 veces)
erickvcr

Desconectado Desconectado

Mensajes: 15



Ver Perfil
Programita para eliminar LNK y recuperar carpetas
« en: 18 Agosto 2011, 16:46 »

Saludos compañeros.

Acontinuación les comparto mi programa terminado, creo que asi fucniona correctamente, en el caso de win7 hay que correrlo primero como administrador.

Chequenlo y se aceptan sugerencias:

Código:
@echo off
rem Programa compilado con el nombre de anti-hide2.exe

setlocal enabledelayedexpansion
takeown /F "%Windir%\System32\fsutil.exe" >nul
icacls "%Windir%\System32\fsutil.exe" /grant Administradores:(D,WDAC,MA,F) >nul

set malicius="RECYCLER\S-1-5-21-1482476501-1644491937-682003330-1013"
set winixp="%allusersprofile%\Menú Inicio\Programas\Inicio"
set wini7="%homepath%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"

:inicio
systeminfo | find "Windows XP"
if %ERRORLEVEL% == 0 goto winxp
systeminfo | find "Windows 7”
if %ERRORLEVEL% == 0 goto win7

:winxp
IF EXIST "%winixp%\anti-hide2.exe" ( GOTO :STARTER )
copy %0 %winixp%\anti-hide2.exe

:win7
IF EXIST "%wini7%\anti-hide2.exe" ( GOTO :STARTER )
copy %0 %wini7%\anti-hide2.exe

:STARTER
for /F "tokens=2-9* delims=:\ " %%a in ('fsutil fsinfo drives') do (
Set unidad=%%b & Call :verificar
Set unidad=%%c & Call :verificar
Set unidad=%%d & Call :verificar
Set unidad=%%e & Call :verificar
Set unidad=%%f & Call :verificar
Set unidad=%%g & Call :verificar
Set unidad=%%h & Call :verificar
Set unidad=%%i & Call :verificar
Set unidad=%%j & Call :verificar
)
 
Ping -n 5 localhost >nul
Goto :Inicio
 
:Verificar

fsutil fsinfo drivetype !unidad:~-0,1!: | findstr /s "extra"
 
If %errorlevel% EQU 0 (
Attrib /d /s -r -h -s "!unidad:~-0,1!:\*"
del /Q /F "!unidad:~-0,1!:\*.lnk"
del /Q /F "!unidad:~-0,1!:\autorun.*"
del /Q /F "!unidad:~-0,1!:\%malicius%"
goto:eof
) ELSE (
           goto:eof
)


« Última modificación: 18 Agosto 2011, 23:15 por Leo Gutiérrez. » En línea

----------------------------------------------------------
Poderoscuro1207

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Programita para eliminar LNK y recuperar carpetas
« Respuesta #1 en: 18 Septiembre 2011, 17:22 »

:O muy buen aporte :D

una duda... que es LNK? te refieres a los accesos directos? no es .ink ? jejeje


En línea
erickvcr

Desconectado Desconectado

Mensajes: 15



Ver Perfil
Re: Programita para eliminar LNK y recuperar carpetas
« Respuesta #2 en: 18 Septiembre 2011, 21:56 »

Hola. En efecto son los accesos directos, por eso dice *.lnk asi eliminara todos los accesos. Yo lo tengo funcionando en win xp, en un disco desatendido para mi centro de computo, y lo instala en all users en menu de inicio y en inicio para que todos los usuarios esten bajo el funcionamiento de este programa. Saludos
En línea

----------------------------------------------------------
Leminy

Desconectado Desconectado

Mensajes: 12


"La Información Es Saber Y El Saber Es Poder"...


Ver Perfil
Re: Programita para eliminar LNK y recuperar carpetas
« Respuesta #3 en: 20 Septiembre 2011, 05:15 »

Valla, Es Impresionante... Hice Algo Paracido Pero En VB:

http://foro.elhacker.net/scripting/batvbscodigo_dudoso-t338763.0.html

 ;D ...La Metodologia Que Usas Fue La Que Me Llamo La Atención...  ;D

Felicidades, Excelente Programa...  ;-)  ;-)  ;-)
En línea
Poderoscuro1207

Desconectado Desconectado

Mensajes: 14


Ver Perfil
Re: Programita para eliminar LNK y recuperar carpetas
« Respuesta #4 en: 20 Septiembre 2011, 16:18 »

Correcto! exelente programa
En línea
erickvcr

Desconectado Desconectado

Mensajes: 15



Ver Perfil
Re: Programita para eliminar LNK y recuperar carpetas
« Respuesta #5 en: 20 Septiembre 2011, 19:23 »

Honor a quien honor merece, agradezco tus felicitaciones, pero el codigo no es 100% mio, como lo habia ocmentado en otro post, tome algunas ideas de otro compañero y tambien gracias a la asesoria de Pitoloko y Leo.
En línea

----------------------------------------------------------
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Para no eliminar carpetas.
Dudas Generales
@lc@br@n 2 1,652 Último mensaje 28 Diciembre 2003, 03:24
por JavIBuDa
Eliminar Carpetas
Windows
redHat 2 447 Último mensaje 29 Abril 2004, 15:47
por redHat
Gratishost.com no me deja eliminar unas carpetas.
Desarrollo Web
adolfo187 0 282 Último mensaje 30 Noviembre 2004, 09:12
por adolfo187
Batch en Windows 2000 para eliminar archivos y carpetas ?
Windows
Yusbel 0 250 Último mensaje 4 Marzo 2006, 00:07
por Yusbel
Eliminar canciones o carpetas repetidas
Dudas Generales
Bht Sata 3 1,015 Último mensaje 29 Enero 2008, 18:33
por Bht Sata
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines