Visual Basic: Como leer el serial del disco duro.

[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.