[boudyonline]

لكود المعالج

PHP كود :

Imports System.Management
Public Function getCPU_ID() As String

    Dim cpuID As String = String.Empty
    Dim mc As ManagementClass = New ManagementClass("Win32_Processor")
    Dim moc As ManagementObjectCollection = mc.GetInstances()
    For Each mo As ManagementObject In moc
      If (cpuID = String.Empty) Then
        cpuID = mo.Properties("ProcessorId").Value.ToString()
      End If
    Next
    Return cpuID
  End Function 


لمعرفة اسم الجهاز

PHP كود :

My.Computer.Name