Hack Bulletin
[Source]Hardware ID Show - Printable Version

+- Hack Bulletin (https://www.hackbulletin.com)
+-- Forum: Programming, Coding, and Languages (/Forum-Programming-Coding-and-Languages)
+--- Forum: Visual Basic/.NET/C# (/Forum-Visual-Basic-NET-C)
+--- Thread: [Source]Hardware ID Show (/Thread-Source-Hardware-ID-Show)

[Source]Hardware ID Show - Classification - 11-29-2014 02:51 AM

Here is a small source that shows the person their HWID (Hardware ID)
Public Class ComputerInfo
    Public Shared Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
        Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
        Return disk("VolumeSerialNumber").ToString
    End Function

    Public Shared Function GetMACAddress() As String
        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Dim MACAddress As String = String.Empty
        For Each mo As ManagementObject In moc

            If (MACAddress.Equals(String.Empty)) Then
                If CBool(mo("IPEnabled")) Then
                    MACAddress = mo("MacAddress").ToString()
                End If
            End If
            MACAddress = MACAddress.Replace(":", String.Empty)

        Return MACAddress
    End Function

    Public Shared Function GetProcessorId() As String
        Dim strProcessorId As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject

        For Each info In search.Get
            strProcessorId = info("processorId").ToString()

        Return strProcessorId

    End Function
End Class
This allows you to view the persons HWID and you can use that for HWID Verification Applications (I'll be showing you how to make that quite soon)