Hallo,
Ich komme bei dem Code einfach nicht weiter.
Den untenstehenden Code habe ich im Internet gefunden und er funktioniert auch als Makro in Excel 365.
Ich möchte aber nicht die for Each Schleife durchlaufen, sondern gleich das Ergebnis von
haben.
Wie kann ich die einzelnen Ergebnisse in der Objektreferenz ObjCPU abrufen, damit ich sie gleich einem String übergeben kann.
Vielen Dank schon mal im Voraus
LG Thomas
Ich komme bei dem Code einfach nicht weiter.
Den untenstehenden Code habe ich im Internet gefunden und er funktioniert auch als Makro in Excel 365.
Ich möchte aber nicht die for Each Schleife durchlaufen, sondern gleich das Ergebnis von
objItem.Name
haben.
Wie kann ich die einzelnen Ergebnisse in der Objektreferenz ObjCPU abrufen, damit ich sie gleich einem String übergeben kann.
Vielen Dank schon mal im Voraus
LG Thomas
strComputerName = Environ("ComputerName")
'** Objektvariable setzen
Set objCPU = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2"). _
ExecQuery("Select * from Win32_Processor")
'** CPU-Paramter auslesen
For Each objItem In objCPU
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