[محمد سالم المحترف]

(11-02-16, 12:34 AM)Fantastico كتب : للتمييز بين الحواسيب المختلفة
يمكنك الاستفادة من معرف المعالج  CPU id

PHP كود :

   Public Function CPU_ID() As String

        Dim wmi As Object = GetObject("winmgmts:" & _
            "{impersonationLevel=impersonate}!\\.\root\cimv2")
        Dim processors As Object = wmi.ExecQuery("Select * from " & _
            "Win32_Processor")

        Dim cpu_ids As String = ""
        For Each cpu As Object In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next
        If cpu_ids.Length > 0 Then cpu_ids = cpu_ids.Substring(2)

        Return cpu_ids
    End Function 


شكرا اخى