PDA

View Full Version : بدست آوردن سریال هارد دیسک و مادربرد و سی پی یو



dll9095
شنبه 14 اسفند 1389, 18:56 عصر
کسی کد بدست آوردن سریال هارد یا مادربرد و یا سریال درایو خاصی و یا سی پی یو رو داره ؟

nice_boy_a
شنبه 14 اسفند 1389, 21:21 عصر
سلام.
اول System.Management رو به References پروژه اضافه کن

شماره سریال CPU

Imports System.Management




Public Shared Function GetCPUId() As String
Dim cpuInfo As String = String.Empty
Dim mgmt As ManagementClass = New ManagementClass("Win32_Processor")
Dim objCol As ManagementObjectCollection = mgmt.GetInstances()
For Each obj As ManagementObject In objCol
If cpuInfo = String.Empty Then
cpuInfo = obj.Properties("ProcessorId").Value.ToString()
End If
Next
Return cpuInfo
End Function

nice_boy_a
شنبه 14 اسفند 1389, 21:28 عصر
اینم شماره سریال تمام هارد دیسکها

Imports System.Management


Private Sub GetHDDSerialNumber()
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 Not wmi_HD("Model") Is Nothing Then
MessageBox.Show(wmi_HD("Model").ToString())
End If
Next
searcher = New ManagementObjectSearcher(query2)
For Each wmi_HD As ManagementObject In searcher.Get()
If Not wmi_HD("SerialNumber") Is Nothing Then
MessageBox.Show(wmi_HD("SerialNumber").ToString())
End If
Next
End Sub

ahmadzadeh.
جمعه 13 بهمن 1396, 00:44 صبح
سلام
در دلفی ممکنه
شماره سریال تمام هارد دیسکها وشماره سریال CPU را بدین