View Full Version : بدست آوردن سریال هارد دیسک و مادربرد و سی پی یو
dll9095
شنبه 14 اسفند 1389, 19:56 عصر
کسی کد بدست آوردن سریال هارد یا مادربرد و یا سریال درایو خاصی و یا سی پی یو رو داره ؟
nice_boy_a
شنبه 14 اسفند 1389, 22: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, 22: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, 01:44 صبح
سلام
در دلفی ممکنه
شماره سریال تمام هارد دیسکها وشماره سریال CPU را بدین
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.