基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

'Imports System
Imports System.Management

Public Class computerid
    'Private Shared _instance As Computer
    Public ComputerName As String
    Public CpuID As String
    Public DiskID As String
    Public IpAddress As String
    Public LoginUserName As String
    Public MacAddress As String
    Public SystemType As String
    Public TotalPhysicalMemory As String

    'cpu系列号
    Public Function GetCpuID() As String
        Try
            Dim cpuInfo As String = ""
            Dim moc As ManagementObjectCollection = New ManagementClass("Win32_Processor").GetInstances
            Dim mo As ManagementObject
            For Each mo In moc
                cpuInfo = mo.Properties.Item("ProcessorId").Value.ToString
            Next
            moc = Nothing
            Return cpuInfo
            CpuID = cpuInfo
        Catch
            Return "unknow"
        End Try

    End Function

    '硬盘系列号
    Public Function GetDiskID() As String
        Try
            Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
            Dim strHardDiskID As String = ""
            For Each mo As ManagementObject In searcher.Get()
                strHardDiskID = mo.Properties("SerialNumber").Value.ToString
                strHardDiskID = strHardDiskID.Replace(" ", "")
                Exit For
            Next
            Return strHardDiskID
        Catch
            Return "unknow"
        End Try

    End Function
    '硬盘型号
    Public Function GetDiskModel() As String
        Try
            Dim HDModel As String = ""
            Dim moc As ManagementObjectCollection = New ManagementClass("Win32_DiskDrive").GetInstances
            Dim mo As ManagementObject
            For Each mo In moc
                HDModel = mo.Properties("Model").Value.ToString

            Next
            moc = Nothing
            Return HDModel
            DiskID = HDModel
        Catch
            Return "unknow"
        End Try
    End Function
    '硬盘厂商
    Function GetDiskModel_1() As String
        Try
            Dim HDModel As String = ""
            Dim mc As ManagementClass = New ManagementClass("Win32_DiskDrive")
            Dim moc As ManagementObjectCollection = mc.GetInstances()

            For Each mo As ManagementObject In moc
                HDModel = mo.Properties("Model").Value.ToString
                'HDModel = HDModel.Replace(" ", "")
                Exit For
            Next

            moc = Nothing
            mc = Nothing
            Return HDModel
        Catch
            Return "unknow"
        End Try
    End Function
    '主板序列号
    Function GetmainboardID() As String
        Try
            Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher("Select * FROM Win32_BaseBoard")
            Dim strmainboardID As String = ""
            For Each mo As ManagementObject In searcher.Get()
                strmainboardID = mo.Properties("SerialNumber").Value.ToString
                strmainboardID = strmainboardID.Replace(" ", "")
                Exit For
            Next
            Return strmainboardID
        Catch
            Return "unknow"
        End Try
    End Function
    'ip地址
    Public Function GetIPAddress() As String
        Try
            Dim st As String = ""
            Dim moc As ManagementObjectCollection = New ManagementClass("Win32_NetworkAdapterConfiguration").GetInstances
            Dim mo As ManagementObject
            For Each mo In moc
                If CBool(mo.Item("IPEnabled")) Then
                    Dim ar As Array = DirectCast(mo.Properties.Item("IpAddress").Value, Array)
                    st = ar.GetValue(0).ToString
                    Exit For
                End If
            Next
            moc = Nothing
            Return st
            IpAddress = st
        Catch
            Return "unknow"
        End Try
    End Function
    'mac地址

    Public Function GetMacAddress() As String
        Try
            Dim mac As String = ""
            Dim moc As ManagementObjectCollection = New ManagementClass("Win32_NetworkAdapterConfiguration").GetInstances
            Dim mo As ManagementObject
            For Each mo In moc
                If CBool(mo.Item("IPEnabled")) Then
                    mac = mo.Item("MacAddress").ToString
                    Exit For
                End If
            Next
            moc = Nothing
            Return mac
            MacAddress = mac
        Catch
            Return "unknow"
        End Try
    End Function
    '系统类型
    Public Function GetSystemType() As String
        Try
            Dim st As String = ""
            Dim moc As ManagementObjectCollection = New ManagementClass("Win32_ComputerSystem").GetInstances
            Dim mo As ManagementObject
            For Each mo In moc
                st = mo.Item("SystemType").ToString
            Next
            moc = Nothing
            Return st
            SystemType = st
        Catch
            Return "unknow"
        End Try
    End Function
    '内存容量
    Public Function GetTotalPhysicalMemory() As String
        Try
            Dim st As String = ""
            Dim moc As ManagementObjectCollection = New ManagementClass("Win32_ComputerSystem").GetInstances
            Dim mo As ManagementObject
            For Each mo In moc
                st = mo.Item("TotalPhysicalMemory").ToString
            Next
            moc = Nothing
            Return st
            TotalPhysicalMemory = st
        Catch
            Return "unknow"
        End Try
    End Function
    '当前系统用户名
    Public Function GetUserName() As String
        Try
            Dim st As String = ""
            Dim moc As ManagementObjectCollection = New ManagementClass("Win32_ComputerSystem").GetInstances
            Dim mo As ManagementObject
            For Each mo In moc
                st = mo.Item("UserName").ToString
            Next
            moc = Nothing
            Return st
            LoginUserName = st
        Catch
            Return "unknow"
        End Try
    End Function









End Class