Как узнать серийный номер винта (не логический а настоящий)

Function GetSerialNumber(strDrive As String) As String
Dim SerialNum As Long
Dim res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function

Private Sub Command1_Click()
Dim fso As New FileSystemObject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName('c:'))
s = drv.TotalSize
Print s
s = drv.FreeSpace
Print s
s = drv.AvailableSpace
Print s
s = drv.DriveLetter
Print s
s = drv.DriveType
Print s
s = 'Серийный номер: ' & drv.SerialNumber
Print s
s = drv.FileSystem
Print s
s = drv.IsReady
Print s
s = drv.Path
Print s
s = drv.RootFolder
Print s
End Sub

Public Function BIOS() As Long
Dim sDB As BIOS_DATE
CopyMemory sDB, ByVal &HFFFF5, 8&
BIOS = DateSerial(Mid(sDB.s, 7, 2), Mid(sDB.s, 1, 2), _
Mid(sDB.s, 4, 2))
End Function
Private Sub Command1_Click()
Print BIOS
End Sub
'-------------- МОДУЛЬ -----------------
Declare Sub CopyMemory Lib 'Kernel32' Alias 'RtlMoveMemory' _
(pDest As Any, pSource As Any, ByVal ByteLen As Long)
Type BIOS_DATE
s As String * 8
End Type