Prozessorname via WMI ermitteln Dieser Tipp zeigt, wie Sie den Prozessornamen via WMI ermitteln können.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  9.824
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit nachfolgendem Code lässt sich der Name (Typ) des installierten Prozessors via WMI ermitteln.

' Prozessor-Info via WMI
Public Function WMIProcInfo() As String
  On Error GoTo ErrHandler
 
  Dim oWMI As Object
  Dim sSQL As String
  Dim oResult As Object
  Dim oItem As Object
  Dim sTemp As String
  Dim sProz As String
 
  ' Verweis auf WMI  
  Set oWMI = GetObject("winmgmts:")
 
  ' Prozessor-Info holen  
  sSQL = "SELECT Name FROM Win32_Processor"
  Set oResult = oWMI.ExecQuery(sSQL)
 
  ' alle Items durchlaufen
  For Each oItem In oResult
    sTemp = Trim$(oItem.Name)
    If Len(sTemp) > 0 Then
      sProz = sTemp
 
      ' alle doppelten Leerzeichen entfernen
      While InStr(sProz, "  ") > 0
        sProz = Replace(sProz, "  ", " ")
      Wend
      Exit For
 
    End If
  Next 
  On Error Resume Next
  Set oItem = Nothing
  Set oResult = Nothing
  Set oWMI = Nothing
  On Error GoTo 0
 
  WMIProcInfo = sProz
  Exit Function
 
ErrHandler:
  WMIProcInfo = ""
End Function