计算机硬盘序列号是空白,为什么小弟我的获取硬盘序列号的代码，在有些电脑下没法获取到硬盘序列号，即返回值为空白...

为什么我的获取硬盘序列号的代码，在有些电脑上没法获取到硬盘序列号，即返回值为空白？

本帖最后由 bcrun 于 2012-12-26 20:13:55 编辑

'取得硬盘信息：型号/物理系列号(唯一)

Function GetHardDiskInfo(Optional ByVal numDisk As eumDiskNo = hdPrimaryMaster, Optional ByVal numType As eumInfoType = hdOnlySN) As String

On Error GoTo Errc

If GetDiskInfo(numDisk) = 1 Then

Dim pSerialNumber As String, pModelNumber As String

pSerialNumber = StrConv(m_DiskInfo.sSerialNumber, vbUnicode)

pModelNumber = StrConv(m_DiskInfo.sModelNumber, vbUnicode)

Select Case numType

Case hdOnlyModel  '仅型号

GetHardDiskInfo = Trim(pModelNumber)

Case hdOnlySN  '仅系列号

GetHardDiskInfo = Trim(pSerialNumber)

Case Else   '型号,系列号

GetHardDiskInfo = Trim(pModelNumber) & "," & Trim(pSerialNumber)

End Select

End If

Dim l#, i#, str As String

str = GetHardDiskInfo

GetHardDiskInfo = Left(str, 20)

l# = Len(GetHardDiskInfo)

For i# = 1 To l#

str = Mid(GetHardDiskInfo, i#, 1)

If 32 

Else

Mid(GetHardDiskInfo, i#, 1) = "0"

End If

Next i#

Exit Function

Errc:

If Err.Description <> "" Then MsgBox Err.Description

End Function

Private Function OpenSMART(ByVal nDrive As Byte) As Long

Dim hSMARTIOCTL As Long

Dim hd As String

Dim VersionInfo As OSVERSIONINFO

hSMARTIOCTL = INVALID_HANDLE_VALUE

VersionInfo.dwOSVersionInfoSize = Len(VersionInfo)

GetVersionEx VersionInfo

Select Case VersionInfo.dwPlatformId

Case VER_PLATFORM_WIN32s

OpenSMART = hSMARTIOCTL

Case VER_PLATFORM_WIN32_WINDOWS

hSMARTIOCTL = CreateFile("\\.\SMARTVSD", 0, 0, 0, CREATE_NEW, 0, 0)

Case VER_PLATFORM_WIN32_NT

If nDrive 

hd = "\\.\PhysicalDrive" & nDrive