Pendrive

Quiero saber, el numero de hardware mas que nada, para usarlo como llave


Gracias
"neualex" escribió en el mensaje
news:

Hola Sofia

Identificacion de una memoria USB, te refieres al nombre de este?
O es una propiedad que esta tiene cuando es conectada al PC como disco
externo?

Saludos

sofia wrote:

Hola a todos;

Una consulta, como puedo ver la identificacion de una
memoria usb


Gracias

Sofia

Que tal sofia, mira yo tengo esto haber si te puede servir

Dim fso, drv

fso = CreateObject("Scripting.FileSystemObject")
drv = fso.GetDrive("E") 'Donde E es tu unidad USB

MsgBox(drv.SerialNumber)


fso = Nothing
drv = Nothing

Ahora si alguien sabe como detectar las unidades usb que tengo en la pc se
los agradeceria.



"sofia" wrote:

Quiero saber, el numero de hardware mas que nada, para usarlo como llave


Gracias
"neualex" escribió en el mensaje
news:
> Hola Sofia
>
> Identificacion de una memoria USB, te refieres al nombre de este?
> O es una propiedad que esta tiene cuando es conectada al PC como disco
> externo?
>
> Saludos
>
> sofia wrote:
>> Hola a todos;
>>
>> Una consulta, como puedo ver la identificacion de una
>> memoria usb
>>
>>
>> Gracias
>>
>> Sofia
>