Páginas: 1 [2] 3 4 
|
 |
|
 Autor
|
Tema: Detector unidades Pendrive 5.0c (Leído 2301 veces)
|
carlitos.dll
 Desconectado
Mensajes: 269
|
Encontré una forma mucho más corta de hacer esto, utilizando el comando diskpart
con la orden list volumes
La única desventaja es que no trabaja en cuenta limitada.
Si tienen windows scripting host habilitado, es mejor el código en vbs de novlucker, aunque eso si, si montas una carpeta como unidad, por ejemplo:
subst L: G:\carpeta_pendrive
y ejecutas el .vbs te muestra dos unidades:
G:
L:
En cambio, el código que hice muestra los volumenes reales, y funciona, en cuenta limitada.
|
|
|
|
« Última modificación: 02 Julio 2008, 09:07 por carlitos.dll »
|
En línea
|
|
|
|
Novlucker
 Conectado
Mensajes: 1.582
|
carlitos.dll, en hora buena, pero... donde ha ido a parar el code para probarlo?  Y antes que nada me quedó una duda. La única desventaja es que no trabaja en cuenta limitada En cambio, el código que hice muestra los volumenes reales, y funciona, en cuenta limitada. aunque eso si, si montas una carpeta como unidad, por ejemplo:
subst L: G:\carpeta_pendrive
y ejecutas el .vbs te muestra dos unidades:
G:
L:
Esto no lo sabía, así que voy a revisar la manera de solucionarlo Saludos
|
|
|
|
« Última modificación: 02 Julio 2008, 14:01 por Novlucker »
|
En línea
|
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y del Universo no estoy seguro." Albert Einstein |
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
a lo que me refiero que no trabaja con cuenta limitada es el comando diskpart (si trabajase en todo tipo de cuentas, podría obtener un listado de alli y tratar la información, y el código quedaría mucho más pequeño que el actual), pero como no trabaja en todo evento, me evité el trabajo de escribir un nuevo código, pues el actual, trabaja bien en toda ocasión.
Lo del archivo, está en la página 1, por el medio, esa es la última versión, en el primer post estaba una versión más antigua, la que tenía el error de mostrar unidades cuando no existían y por eso la borré.
Lo del uso de subst para montar una carpeta del pendrive como unidad, es cierto que tu code actual, muestra las unidades virtuales, en cambio el que hice en batch muestra solo los volumenes reales.
Aunque es solo un detalle, pues ¿quién va a montar unidades virtuales de pendrive, cuando son medios transportables? en la práctica tu code es mucho más rápido y eficiente.
|
|
|
|
« Última modificación: 02 Julio 2008, 14:24 por carlitos.dll »
|
En línea
|
|
|
|
Novlucker
Conectado
Mensajes: 1.582
|
Estuve haciendo pruebas, y efectivamente es como dices... es que las unidades montadas (desde pendrive) las marca como extraíbles  Aunque es solo un detalle, pues ¿quién va a montar unidades virtuales de pendrive, cuando son medios transportables? en la práctica tu code es mucho más rápido y eficiente. Nunca se sabe, siempre aparece alguien  .... por lo que en definitiva, tu code es 100% certero, en cambio el mío, si bien es más corto y rápido, deja un pequeño margen de error, pequeño, pero error al fin  Saludos |
|
|
|
|
En línea
|
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y del Universo no estoy seguro." Albert Einstein |
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
Hay una forma de hacer lo que tú hiciste en vbs, en batch, sin mostrar las unidades virtuales, pero no funciona en cuenta limitada. lo encontré hace poco en una página que descubrí sangoogleando: dostips.com @ECHO OFF
set "drlist="
for /f "tokens=*" %%A in ('fsutil fsinfo drives^|find /V ""') do (
set "dr=%%A"
call set "drlist=%%drlist%% %%dr:~-3%%"
)
for %%A in (%drlist%) do fsutil fsinfo drivetype %%A
Usa el comando fsutil, que no trabaja en cuenta limitada, sólo hay que filtrarle para que muestre las unidades removibles. En todo caso, les postié el code, para saber qué opinan. (Los de habla inglesa tienen habilidad para estas cosas) http://www.dostips.com/forum/viewtopic.php?t=284 |
|
|
|
|
En línea
|
|
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
Corregí dos líneas. Finalmente dejé la versión 1.0 en la primera página de este post.
|
|
|
|
|
En línea
|
|
|
|
|
:: SmartGenius ::
|
oye carlitos.dll.... yo habia hecho un code para eso en CM, lo sacaste de alli ?? @echo off
title Examinador de Unidades
color 0a
:main
cls
echo.
echo Introduzca la Letra de Unidad
echo.
set /p uni="> "
FSUTIL FSINFO DRIVETYPE %uni%:>%temp%\letuni.tmf
for /F "tokens=*" %%a in (%temp%\letuni.tmf) do set p=%%a
if %p:~-4%==ija (goto fija)
if %p:~-4%==ble (goto USB)
if %p:~-4%==ROM (goto CD) else (goto main)
:USB
echo.
echo La unidad es Extraible
pause
exit
:fija
echo La unidad es una Unidad de Disco Duro
echo.
pause
exit
:CD
echo.
echo La unidad es una CD-ROM
echo.
pause
exit de ahi en adelante se podria hacer algo para hacer mas efectiva la propagacion por USB... Saludos. |
|
|
|
|
En línea
|
|
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
Mi code funciona en cuenta limitada, y ese code puse más arriba que es similar al tuyo, lo saqué de d o s t i p s . c o m Mi code pretende ser una roca como BSD  (Está en la primera página del post) |
|
|
|
|
En línea
|
|
|
|
|
:: SmartGenius ::
|
ah ok men... no hay problema...
Lo bueno es que funcione en una cuenta limitada, para poder realizar algo mas efectivo...
Saludos.
|
|
|
|
|
En línea
|
|
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
Más adelante está la versión 3.3.
------------------
::Detector de unidades removibles
::v2.0 by CarlitoS.dll
@echo off
reg.exe export HKLM\SYSTEM\MountedDevices "%tmp%\dev.dat" >nul
set /a non=1
echo LAS UNIDADES REMOVIBLES ACTUALES SON:
for /f "tokens=1 delims==" %%a in ('type "%tmp%\dev.dat" ^| find /i "\\DosDevices\\" ^| sort ^| find /i "53,00,54,00,4f,00,52,00,41"') do call :fil %%a
if %non%==1 (echo Ninguna)
pause
exit
:fil
set dr=%*
set dr=%dr:~-3,1%
call :lab %dr%
goto :eof
:lab
if exist %1:\ (echo %1 & set /a non=0)
goto :eof
|
|
|
|
« Última modificación: 12 Julio 2008, 03:28 por carlitos.dll »
|
En línea
|
|
|
|
|
sirdarckcat
|
No crees que estó es redundante?
reg.exe export HKLM\SYSTEM\MountedDevices "%tmp%\dev.dat" >nul
type "%tmp%\dev.dat"
Hay un handler de archivo virtual a la salida stdout.. :con es para la consola.. si te permite leer y escribir talvez puedas redirigir el export a stdout y así solo pipe'ar la salida..
|
|
|
|
|
En línea
|
|
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
En la siguiente página está la versión 3.4 que es la mejor:: DETECTOR DE UNIDADES REMOVIBLES
:: v3.3
:: $author CarlitoS.dll
@echo off
set /a non=1
echo LAS UNIDADES REMOVIBLES ACTUALES SON:
for /f "tokens=1 delims=:" %%a in ('reg query HKLM\SYSTEM\MountedDevices ^| find /i "530054004F00520041"') do call :fil %%a
if %non%==1 (echo Ninguna)
pause
exit
:fil
set dr=%*
set dr=%dr:~-1%
call :lab %dr%
goto :eof
:lab
if exist %1:\ (echo %1 & set /a non=0)
goto :eof
|
|
|
|
« Última modificación: 12 Julio 2008, 03:29 por carlitos.dll »
|
En línea
|
|
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
Pido disculpas por tantas modificaciones, pero es que luego de un rato se me ocurré otra cosa, y me digo: podría escribir esto para que quedara más rápido.
La versión 3.3 la dejo como versión final, no creo que le haga más modificaciones, pienso que quedó óptimo ese code, y lo más importante es que se puede utilizar bajo cuenta limitada, pues no llama a diskpart o fsutil.
|
|
|
|
|
En línea
|
|
|
|
Novlucker
Conectado
Mensajes: 1.582
|
Bueno, lo he probado y no hay quejas  , te ha quedado muy bien.. y sobre todo porque este último code es la tercera parte de largo, de lo que era el primero que publicaste Saludos |
|
|
|
|
En línea
|
"Hay dos cosas infinitas: el Universo y la estupidez humana. Y del Universo no estoy seguro." Albert Einstein |
|
|
carlitos.dll
Desconectado
Mensajes: 269
|
Gracias novlucker. Bueno, ahora una vez termine de leer todas las páginas de manual de los comandos de batch, se viene korn shell (me decidí por este, en vez de perl o python) quiero Unix No sabré todo de batch, pero ya es suficiente para mi. |
|
|
|
« Última modificación: 11 Julio 2008, 07:31 por carlitos.dll »
|
En línea
|
|
|
|
|
Páginas: 1 [2] 3 4 
|
|
|
 |
