[david_uh]

Empezado por ecfisa

Hola David.

Tal vez también te pueda interesar este artículo: Accesing the WMI from Object Pascal Code (Delphi, Oxygene, FreePascal)

Saludos

si me ayudo implemente el ejemplo pero no corría y mandaba error al momento de llamar a la función vartype()
dentro de la función VarArrayToStr pero lo solucione usando VarTypeDeRef en vez de vartype, use la consulta

Código SQL [-]
SELECT * FROM win32_pnpentity where deviceid like 'USB%' and Status='OK'

tal como me siguirió Neftali y funciona, claro usando las propiedades que muestra en la imagen que publico Neftali, gracias a todos por sus respuestas y sugerencias