VB.NET2005 取得磁盘、主板、CPU 的 ID

VB.NET2005 取得磁盘、主板、CPU 的 ID

 (2011-07-28 12:46:01)

转载▼

标签：  转载

原文地址：VB.NET2005 取得磁盘、主板、CPU 的 ID作者：王明洪

VB.NET2005 取得磁盘、主板、CPU 的 ID

王明洪

Imports System.Management
Public Class GetIDClass
    Public Sub New()
    End Sub
    Public Function GetID() As String
        Dim ID As String
        ID = GetHardDriveID()
        If ID <> "" Then
            Return ID
        Else
            ID = GetMainBoardID()
            If ID <> "" Then
                Return ID
            Else
                ID = GetCUPID()
                If ID <> "" Then
                    Return ID
                Else
                    Return "Err"
                End If
            End If
        End If
    End Function
    Private Function GetHardDriveID() As String
        Try
            GetHardDriveID = ""
            Dim info As ManagementBaseObject
            Dim query As New SelectQuery("Win32_DiskDrive")
            Dim search As New ManagementObjectSearcher(query)
            For Each info In search.Get()
                If info("Model") IsNot Nothing Then
                    Return info("Model").ToString
                Else
                    Return ""
                End If
            Next
        Catch ex As Exception
            Return ""
        End Try
    End Function
    Private Function GetMainBoardID() As String
        Try
            GetMainBoardID = ""
            Dim info As ManagementBaseObject
            Dim query As New SelectQuery("Win32_BaseBoard")
            Dim search As New ManagementObjectSearcher("Select * FROM Win32_BaseBoard")
            For Each info In search.Get
                If info("Product") IsNot Nothing Then
                    Return info("Product").ToString
                Else
                    Return ""
                End If
            Next
        Catch ex As Exception
            Return ""
        End Try
    End Function
    Private Function GetCUPID() As String
        Try
            GetCUPID = ""
            Dim info As ManagementBaseObject
            Dim query As New SelectQuery("Win32_Processor")
            Dim search As New ManagementObjectSearcher(query)
            For Each info In search.Get
                If info("ProcessorId") IsNot Nothing Then
                    Return info("ProcessorId").ToString
                Else
                    Return ""
                End If
            Ne