Hola Amigos.
Buscando y rebuscando programa o comandos para detectar harware y demás de la computadora, encontré este programa llamado
INXI que es algo realmente extraordinario por la cantidad de información que proporciona.
Espero que les resulte de utilidad.
Pero con este programa resultaría relativamente fácil crear una interfase para detección de hardware.
Les comparto una función que hice para hacer mas legible la informacion que nos entrega inxi
Código:
Static Public Sub Hardware() As JSONCollection
Dim oTmp As JSONCollection
Dim oHwr As New JSONCollection
Dim vSub As Variant[]
Dim oSub As New JSONCollection
Dim sKey As String
Dim vrt As Variant
Dim v As Variant
Dim sSub As String
Dim s As String
Dim sRaw As String
Shell "inxi --output json --output-file print -bFSDxxx" To sRaw
oTmp = JSON.Decode(sRaw, True)
For Each vSub In oTmp
If InStr(oTmp.Key, "#") > 0 Then
sKey = Split(oTmp.Key, "#").Last
Else
sKey = oTmp.Key
Endif
oSub.Clear
s &= "\n"
s &= sKey & "\n"
s &= String(Len(sKey), "-") & "\n"
For Each vrt In vSub
If TypeOf(vrt) = 16 Then
For Each v In vrt
If InStr(vrt.Key, "#") > 0 Then
sSub = Split(vrt.Key, "#").Last
Else
sSub = vrt.Key
Endif
oSub.Add(v, sSub)
s &= sSub & ": " & v & "\n"
Next
Else
Endif
Next
oHwr.Add(oSub.Copy(), sKey)
Next
File.Save("/tmp/hw.txt", s)
Return oHwr
End
Saludos.