Codigo fuente...

mcdowell
10 de Junio del 2004
HI!, quisiera saber si alguien tiene el codigo fuente para leer el serial de el disco duro, o como se hace.

muchas gracias

joker
10 de Junio del 2004
Option Explicit

Dim h As HDSNLib.HDSN

Private Sub command1_Click()

Dim hT As Long
Dim uW() As Byte
Dim dW() As Byte
Dim pW() As Byte

Set h = New HDSNLib.HDSN

With h
.CurrentDrive = Val(combo1.Text)

list1.Clear
list1.AddItem "Current drive: " & .CurrentDrive
list1.AddItem ""
list1.AddItem "Model number: " & .GetModelNumber
list1.AddItem "Serial number: " & .GetSerialNumber
list1.AddItem "Firmware Revision: " & .GetFirmwareRevision
list1.AddItem ""
list1.AddItem "Copyright: " & .Copyright
End With

Set h = Nothing

End Sub

Private Sub Form_Load()

combo1.ListIndex = 0

End Sub

isaac
10 de Junio del 2004
Donde puedo encontrar el control HDSNLib.HDSN?
Nos da el numero de serie real del hd o el de formateo?
Gracias.