1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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
|