Cita:
Iniciado por sdnsdlm 
Hola,
Se me ocurre otra manera de hacerlo, con el siempre recurrido en momentos de necesidad FileSystemObject. Con él después haces un set del objeto Drive con getDriver y finalmente usas su propiedad serialNumber. Algo del palo:
Private Sub saberNumSerieDiscoDuro()
Dim fso As New Scripting.FileSystemObject
Dim dr As Scripting.Drive
Set dr = fso.GetDrive("c:")
msgBox dr.SerialNumber
End Sub
Acuérdate de marcar en referencias la "Microsoft Scripting Runtime" necesaria para poder usar el FileSystemObject.
Saludos.
Disculpa mi ignorancia que significa " no lo encuentro como referencia