Private Sub GetCPUData(Optional ByVal strComputerName As String = ".")
Dim objWMI As Object, objItem As Object
Set objWMI = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2"). _
ExecQuery("Select * from Win32_Processor")
For Each objItem In objWMI
Debug.Print "Prozessor   : " & objItem.DeviceID
Debug.Print "Name        : " & Trim$(objItem.Name)
Debug.Print "Takt (MHz)  : " & objItem.MaxClockSpeed
Debug.Print "CPU ID      : " & objItem.ProcessorId
Debug.Print "Computername: " & objItem.path_.server
Next
Set objWMI = Nothing
End Sub
 
Private Sub Command1_Click()
GetCPUData
End Sub