elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  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 4,898 veces)
erickvcr

Desconectado Desconectado

Mensajes: 15



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

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 pm por Leo Gutiérrez. » En línea

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

Desconectado Desconectado

Mensajes: 13


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

: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 pm »

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 am »

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: 13


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

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 pm »

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
[Source] Eliminar carpetas, subcarpetas y archivos
Programación Visual Basic
nhaalclkiemr 3 8,246 Último mensaje 15 Febrero 2008, 13:34 pm
por Chefito
[Python] Problemas para eliminar carpetas
Scripting
jadtiger 3 3,829 Último mensaje 10 Enero 2013, 00:00 am
por The_Mushrr00m
Ayuda en código para eliminar carpetas en una ruta específica.
Scripting
Previsible 8 4,511 Último mensaje 1 Diciembre 2013, 21:07 pm
por Eleкtro
SCRIPT PARA ELIMINAR CARPETAS
Seguridad
achebedos 2 4,003 Último mensaje 13 Noviembre 2017, 15:13 pm
por achebedos
Batch para eliminar carpetas antiguas
Scripting
_CrisiS_ 5 8,213 Último mensaje 23 Agosto 2019, 06:48 am
por EdePC
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines