Disc serial number

[tiguy]

Hi all

Can anyone tell me how to find my hard drive serial number?

Thanks Reston

[Lee_S]

This must have been covered a million times. Try using the forums search function.

[GotYou888]

Try this one

<vbcode>

Private Sub Command2_Click()
Dim fso As New Scripting.FileSystemObject
Dim dr As Scripting.Drive

'Get a reference to the drive object
Set dr = fso.GetDrive("C")
MsgBox Hex$(dr.SerialNumber)

End Sub
</vbcode>

[laserman]

Look Here

http://www.vbforums.com/showthread.p...=serial+number