سلام دوستان
میدونم در این باره خیلی بحث شده اما کدهایی که من داخل این سایت بدست اوردم بیشترشون با wmi هستش و خیلیا میگن که تو هرسیستمی این جواب نمیده چون ممکنه این سرویس داخل ویندوز مربوطه غیرفعال باشه.
برای مثال شماره سریال cpu
Dim cpuInfo As String = String.Empty Dim mgmt As New ManagementClass("Win32_Processor")
Dim objCol As ManagementObjectCollection = mgmt.GetInstances()
For Each obj As ManagementObject In objCol
If cpuInfo = String.Empty Then
TextBox3.Text = obj.Properties("ProcessorId").Value.ToString()
End If
Next
Return cpuInfo
شماره سریال هارد دیسک
Dim searcher As ManagementObjectSearcher Dim query1 As String = "SELECT * FROM Win32_DiskDrive"
Dim query2 As String = "SELECT * FROM Win32_PhysicalMedia"
searcher = New ManagementObjectSearcher(query1)
For Each wmi_HD As ManagementObject In searcher.Get()
If wmi_HD("Model") IsNot Nothing Then
TextBox1.Text = wmi_HD("Model").ToString()
End If
Next wmi_HD
searcher = New ManagementObjectSearcher(query2)
For Each wmi_HD As ManagementObject In searcher.Get()
If wmi_HD("SerialNumber") IsNot Nothing Then
TextBox2.Text = wmi_HD("SerialNumber").ToString()
End If
Next wmi_HD
با شماره سریال هارد در این کد من بارها به مشکل برخوردم و در ویندوز xp موقعی که فلش مموری به usb وصل باشه دیگر شماره سریال هارد رو نمایش نمیده.
با استفاده از توابع دیگری تونستید شماره سریال cpu یا هارد بدست آورید ؟ ممنون میشوم کدهاشو به اشتراک بزارین.