Visual Basic - obtener la serie del disco en win xp

Hola:

Hay manera de obtener la serie del disco duro en win xp?

Mil gracias
bye, bye

Marca la referencia "Microsoft Scripting Runtime" y pones este código

Dim FSO As New FileSystemObject
Dim drv As Drive
Set drv = FSO.Drives("c:")
MsgBox drv.SerialNumber

Espero que te sirva

Mil gracias
ya lo probe, si me da una serie de numeros, pero difiere al que puedo ver desde el DOs.
Yo esperaba que me diera la misma serie que el DOS.
si me pueden sacar de esta duda?

Mil, Mil gracias
bye, bye

Es exactamente lo mismo solo que la representación numérica es la que difiere, la que obtienes es la decimal y la que puedes ver des la ventana de comandos es hexadecimal, pero ambas es el mismo valor.