USB

On 7 mayo, 14:20, carlos albores
wrote:

Hola, nuevamente pidiendo ayuda de como obtener datos de un dispositivo
conectado a algun puerto usb tales como modelo,serie,nombre o algun dato que
lo identifique.

Gracias de antemano nuevamente

aqui te dejo un buen ejemplo..

http://vbnet.mvps.org/code/wmi/win32_diskdrive.htm

Saludos ... Morgan 8-)

¡Hola, Carlos Albores!

Utiliza el siguiente código:
Sub ListaUnidades()
Dim objFSO As Object, Unidad As Object, sMensaje As String

Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each Unidad In objFSO.Drives
If Unidad.DriveType = 1 And Unidad.IsReady Then 'Removable
sMensaje = sMensaje & IIf(Len(sMensaje), vbCrLf, "") &
Unidad & ", " & Unidad.VolumeName & ", " & Unidad.SerialNumber
End If
Next
Set objFSO = Nothing
If Len(sMensaje) = 0 Then sMensaje = "No hay ninguna unidad
extraíble disponible."
MsgBox sMensaje, vbInformation, "Unidades extraíbles disponibles"
End Sub

Si necesitas más información del objeto FileSystemObject añade la
librería Scripting (Microsoft Scripting Runtime) a las referencias y
lo podrás analizar con el Examiador de objetos (F2).