(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
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。