INXI - ¿Detectar hardware? ... Hecho.

tincho 20-09-2021, 22:30

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.

Última modificación: 24-09-2021, 00:19 por tincho.

1 Saludo.