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

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