HOW TO:获取硬盘物理序列号

""" <summary>

""" 获取物理序列号

""" </summary>

""" <param name="id">系统硬盘序号,0-255</param>

Public Shared Function GetSerialNumber(ByVal id As Byte) As String

Dim os As OperatingSystem = Environment.OSVersion

If os.Platform <> PlatformID.Win32NT Then

Throw New NotSupportedException("仅支持2000/XP/2003")

End If

If os.Version.Major < 5 Then

Throw New NotSupportedException("仅支持2000/XP/2003")

End If

Return Read(id)

End Function

Private Shared Function Read(ByVal drive As Byte) As String

Dim driveName As String = String.Concat("\\.\PhysicalDrive", drive.ToString())

Dim device As Int32 = CreateFile( _

driveName, _

GENERIC_READ Or GENERIC_WRITE, _

FILE_SHARE_READ Or FILE_SHARE_WRITE, _

0, _

OPEN_EXISTING, _