Dim pn As String
    Dim ph As String

 Dim strHostName As String
        strHostName = System.Net.Dns.GetHostName()
        Dim objMOS As ManagementObjectSearcher
        Dim objMOC As Management.ManagementObjectCollection
        Dim objMO As Management.ManagementObject
        objMOS = New ManagementObjectSearcher("Select * From Win32_Processor")
        objMOC = objMOS.Get
        For Each objMO In objMOC
'''ph : pc hardware id
            ph = objMO("ProcessorID")
'''pn : pc name
            pn = strHostName
        Next