[ابو انس]

تحية طيبة ....
قمت بعمل برنامجي نسخة تجريبية يعمل لمدة 15 يوم فقط ولكن واجهتني في التفعيل حيث اني وجدت الكثير من الاكواد في هذا المننتدى وغيره التي تستخرج سيريال الهارد ولكن للاسف بعد تنصيب البرنامج على لابتوب اخر اعطاني نفس سيريال الهارد رغم ان الهارد مختلف
وقمت بتنصيب البرنامج على لابتوب مماثل لنوع لابتوبي ونفس المواصفات فاعطاني نفس سيريال المعالج
هل من حل...
هل لدى احدكم كود مجرب وموثوق
علما انها مشاركتي الاولى في المنتدى وشكرا

[alfaiz678]

كود :

 Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
       Dim mo_PR As ManagementObject
       '   Dim Proc As String
       For Each mo_PR In MOS_PR.Get()
           Proc.Text = mo_PR("ProcessorId").ToString()
       Next

       ''========
       Dim con As ConnectionOptions = New ConnectionOptions
       Dim machineName As String = System.Environment.MachineName
       Dim mss As ManagementScope = New ManagementScope("\\" + machineName + "\root\cimv2", con)
       Dim ob As ObjectQuery = New ObjectQuery("SELECT * FROM win32_PhysicalMedia")
       Dim moss As ManagementObjectSearcher = New ManagementObjectSearcher(mss, ob)
       Dim queryCollection As ManagementObjectCollection = moss.Get
       For Each getnow As ManagementObject In queryCollection
           If getnow.Item("Tag") = "\\.\PHYSICALDRIVE0" Then
               Hard.Text = (getnow("SerialNumber").ToString())
           End If
       Next

كود :

Imports System.Management

[ابو انس]

شكرا على ردك الكريم
بخصوص الجزء المتعلق بسيريال الهارد لم يعمل بشكل جيد حيث اني بعد تجربة البرنامج على جهاز لابتوب اخر اعطاني نفس السيريا
بخصوص الجزء المتعلق بسيريال الهارد تمت تجربته عمل بشكل جيد
وبهذا تم حل مشكلتي والحمد لله
شكرا alfaiz678