[sniper2030]

Friend Shared Function GetProcessorId() As String
Dim processorId As String = String.Empty
Dim searcher As New ManagementObjectSearcher("Select ProcessorId From Win32_processor")

Try
For Each current As ManagementObject In searcher.Get()
processorId = current("ProcessorId").ToString()
Exit For ' نحن نحتاج فقط إلى قيمة المعالج الأولة
Next
Catch ex As Exception
' يمكنك إضافة معالجة للأخطاء هنا إذا لزم الأمر
End Try

Return processorId
End Function



جرب هذا الكود