Disc serial number

Hi all

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

Thanks Reston

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

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>

Quote:

---

Look Here

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

---