بدست آوردن سریال هارد دیسک و مادربرد و سی پی یو

[dll9095]

کسی کد بدست آوردن سریال هارد یا مادربرد و یا سریال درایو خاصی و یا سی پی یو رو داره ؟

[nice_boy_a]

سلام.
اول 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]

اینم شماره سریال تمام هارد دیسکها

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.]

سلام
در دلفی ممکنه

شماره سریال تمام هارد دیسکها وشماره سریال CPU را بدین