Holen Sie sich die hardware-Hersteller und system-Modell-Nummer in VB.net?

Ich versuche, die hardware-Hersteller (z.B. "Dell") und das Modell-Nummer (z.B. "Latitude E6320") mit vb.net aber ich habe kein Glück.

Habe ich versucht,

Dim opSearch As New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
Dim opInfo As ManagementObject
For Each opInfo In opSearch.Get()
    Return opInfo("manufacturer").ToString()
Next

Obwohl dies liefert "Microsoft Corporation" nicht "Dell".

  • Unterschätzen Sie nie die Fähigkeit, ein PC-Anbieter, um Ecken schneiden. Eine wichtige überlebensstrategie, wenn es um Pfennige, um im Wettbewerb mit Asien. Überschätzen Sie nicht mehr lohnendes Projekt arbeiten, für einen Programmierer.
InformationsquelleAutor rabbitt | 2014-04-01
  1. 3

    Sie sind polling die falsche WMI-Klasse/Struktur. Natürlich, Microsoft ist der OS-Hersteller, was Sie brauchen, ist Win32_ComputerSystem:

    Imports System.Management


cs = New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")

For Each objMgmt In cs.Get
   _Manufacturer = objMgmt("manufacturer").ToString()
   _Model = objMgmt("model").ToString()
   _SystemType = objMgmt("systemtype").ToString
   _totalMem = objMgmt("totalphysicalmemory").ToString()
Next

    Hersteller werden so etwas wie "Dell Inc", das Modell kommt richtig mit mir, aber wurde bekannt, manchmal umfassen die internen sub-Modell-IDS. System Typ kommt wieder als "x64-basierten PC" auf meiner.

    MS hat eine WMI-Abfrage-generator, irgendwo zu helfen, fnd, und verwenden Sie die richtige Abfrage, wenn es erzeugt sehr wortreich-code.

    • Ich sollte auch erwähnen, dass CodeProject hat ein SysInfo-Typ-app, die zeigt alle die WMI-Werte system. Es ist ein bisschen datiert, dass es aufhört, bei XP oder Vista, aber es ist nützlich, dass es alle die Tasten, Eigenschaften und Klassen (zumindest zu der Zeit).
    • verlassen Sie den link für die WMI-Abfrage-generator, wie ich vor kurzem fand diese Antwort hilfreich und suchte es bis: microsoft.com/en-us/download/details.aspx?id=8572
    InformationsquelleAutor Ňɏssa Pøngjǣrdenlarp
  2. 1

    Geben diesem einen Versuch in einer Konsole-Anwendung. Nur vergessen Sie nicht, das System.Management-Referenz zu Ihrem Projekt. Sie benötigen Zugriff auf das Win32_ComputerSystem nicht die Win32_OperatingSystem.

    Sub Main()
    Dim objCS As Management.ManagementObjectSearcher
    Dim manufacturerName As String

    'objOS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
    objCS = New Management.ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")

    For Each objMgmt In objCS.Get
        manufacturerName = objMgmt("manufacturer").ToString()
    Next
    Debug.WriteLine("Manufacturer: " & manufacturerName)
End Sub

    Hoffe, es hilft.

    InformationsquelleAutor DataCrypt
Schreibe einen Kommentar