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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Detector unidades Pendrive 5.0c
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 3 [4] 5 6 Ir Abajo Respuesta Imprimir
Autor Tema: Detector unidades Pendrive 5.0c  (Leído 29,927 veces)
sirdarckcat
Aspirante a supervillano
Colaborador
***
Desconectado Desconectado

Mensajes: 7.029


No estoy loco, soy mentalmente divergente


Ver Perfil WWW
Re: Detector unidades Pendrive 3.3
« Respuesta #30 en: 12 Julio 2008, 02:15 am »

Que tal  una 3.4?

Borrando..

Código:
set /a non=1
& set /a non=0

y cambiando:

Código:
%non%==1
por
Código:
%ERRORLEVEL%==0

Saludos!!


En línea

carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
Detector unidades Pendrive 3.4
« Respuesta #31 en: 12 Julio 2008, 03:31 am »

Muchas gracias sirdarkcat. Es increíble que lo que hacía en 40 líneas, se haga en 10.
Código:
:: DETECTOR DE UNIDADES REMOVIBLES v3.4
:: $author CarlitoS.dll

@echo off

echo Unidades removibles montadas:
for /f "tokens=1 delims=:" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find /i "530054004F00520041"') do call :fil %%a
pause & exit

:fil
set dr=%*
call :lab %dr:~-1%
goto :eof

:lab
if exist %1:\ (echo %1) else if not %1==0 (echo Ninguna)
goto :eof



En línea

sirdarckcat
Aspirante a supervillano
Colaborador
***
Desconectado Desconectado

Mensajes: 7.029


No estoy loco, soy mentalmente divergente


Ver Perfil WWW
Re: Detector unidades Pendrive 3.4
« Respuesta #32 en: 12 Julio 2008, 03:42 am »

9, el último goto:eof no es realmente necesario..
En línea

carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
Detector unidades Pendrive 3.6
« Respuesta #33 en: 22 Julio 2008, 01:12 am »

Código:
::DETECTOR OF REMOVABLE DEVICES [V3.6] author CarlitoS.dll
@echo off & echo Mounted removable devices:
for /f "tokens=1 delims=:" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find "530054004F00520041"') do call :fil %%a
pause>NUL & exit
:fil
set dr=%*
set dr=%dr:~-1%
if exist %dr%:\ (echo %dr%) & goto :eof
En línea

sirdarckcat
Aspirante a supervillano
Colaborador
***
Desconectado Desconectado

Mensajes: 7.029


No estoy loco, soy mentalmente divergente


Ver Perfil WWW
Re: Detector unidades Pendrive 3.6
« Respuesta #34 en: 22 Julio 2008, 05:33 am »

esto deberia funcionar, y queda una linea :S
Código
  1. @for /f "tokens=1 delims=:" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find "530054004F00520041"') do if exist %%a:~-1%%:\ (echo %%a%%)
En línea

carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
Detector unidades Pendrive 4.0
« Respuesta #35 en: 24 Julio 2008, 00:23 am »

Aquí lo dejo en una línea. Si se borran los saltos de línea queda en una línea.
Gracias sirdarckcat por obligarme a exigirme más. Ahora quedó mucho mejor.

Código:
::DETECTOR OF REMOVABLE DEVICES [V4.0] author CarlitoS.dll

@echo off & (
for /f "tokens=1" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find "530054004F00520041"') do (
for /f "tokens=2 delims=\" %%b in ("%%a") do (if exist %%b\ (echo %%b)))
) & pause
« Última modificación: 24 Julio 2008, 01:03 am por carlitos.dll » En línea

carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
Detector unidades Pendrive 4.1
« Respuesta #36 en: 24 Julio 2008, 02:07 am »

Ahora acabo de descubrir que se pueden añadir más delimitadores en el for. Así es que ahora quedó más corto todavía.

Código:
::DETECTOR OF REMOVABLE DEVICES [V4.1] author CarlitoS.dll
@echo off & (
for /f "tokens=3 delims=\:" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find "530054004F00520041"') do (
if exist %%a:\ (echo %%a))
) & pause
En línea

morenochico

Desconectado Desconectado

Mensajes: 171


Ver Perfil
Re: Detector unidades Pendrive 4.1
« Respuesta #37 en: 26 Julio 2008, 02:11 am »

Felicidades chicos quedo muy bien, sigan asi.
En línea

carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
Detector unidades Pendrive 5.0
« Respuesta #38 en: 26 Julio 2008, 19:41 pm »

Dejo la versión 5.0c Final
En este mismo post publiqué la versión 5.0 pero la versión 5.0c tiene un cambio:

Esto, me lo corrigió Rob van der Woude
Código:
if exist %%a:\ (echo %%a)

Código:
dir /a %%a:\ >NUL 2>&1 && echo.%%a:

« Última modificación: 26 Julio 2008, 20:11 pm por carlitos.dll » En línea

carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
Detector unidades Pendrive 5.0c
« Respuesta #39 en: 26 Julio 2008, 19:53 pm »

Código:

::DETECTOR OF REMOVABLE DEVICES [V5.0c Final] author CarlitoS.dll
::carlitosdll.blogspot.com
::Tested in Windows 2000 and XP. Not works in Windows 98 and Me.

@echo off
if "%errorlevel%"=="" goto other

echo Mounted removable devices detected
echo ----------------------------------

ver | findstr "2000 NT" >NUL && goto NT2000

:XPVISTASEVEN
for /f "tokens=3 delims=\:" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find "530054004F00520041"') do (
dir /a %%a:\ >NUL 2>&1 && echo.%%a:)
pause
goto :eof

:NT2000
regedit /e "%temp%\devices.dat" "HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices"
for /f "tokens=3 delims=\:" %%a in ('find /i "DosDevices" ^< "%temp%\devices.dat" ^| find /i "53,00,54,00,4f,00,52,00,41"') do (
dir /a %%a:\ >NUL 2>&1 && echo.%%a:)
del /f /q "%temp%\devices.dat" >NUL
pause
goto :eof

:other
echo Current batch is not supported in this Operating System version.
exit

« Última modificación: 26 Julio 2008, 19:59 pm por carlitos.dll » En línea

Páginas: 1 2 3 [4] 5 6 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Como monitorizar unidades de dispositivos PENDRIVE?
.NET (C#, VB.NET, ASP)
Eleкtro 8 4,676 Último mensaje 9 Febrero 2013, 20:26 pm
por HdM
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines