Damit man die nette Funktion von Jan Welker auch in VB.NET verwenden kann, kommt hier die Übersretzung nach VB.NET.
Zitat: "Diese Methode ermittelt die Anzahl physikalischer Prozessoren. Bei einem Dualcore sind das also einer.
Ein Verweis auf System.Management muss dem Projekt hinzugefügt werden!"
Imports System.Management
Public Class clsCPUCount
Public Function AnzahlPhysikalischeProzessoren() As Integer
Dim mc As ManagementClass = New ManagementClass("Win32_Processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim SocketDesignation As String = String.Empty
Dim PhysCPU As ArrayList = New ArrayList
Dim mo As ManagementObject
For Each mo In moc
SocketDesignation = mo.Properties("SocketDesignation").Value.ToString()
If Not PhysCPU.Contains(SocketDesignation) Then
PhysCPU.Add(SocketDesignation)
End If
Next
Return PhysCPU.Count
End Function
End Class
Kommentare zum Snippet