Getting harddisk's serial number

[ans]

Is there a way to get a harddisk' serial number or other detail of it. Please...
thanks.

[da_silvy]

yes, and i'm just working on it.

[da_silvy]

here is wthe code:

Option Explicit
Private Declare Function GetVolumeInformation& Lib "kernel32" _
    Alias "GetVolumeInformationA" (ByVal lpRootPathName _
    As String, ByVal pVolumeNameBuffer As String, ByVal _
    nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
    lpMaximumComponentLength As Long, lpFileSystemFlags As _
    Long, ByVal lpFileSystemNameBuffer As String, ByVal _
    nFileSystemNameSize As Long)
    Const MAX_FILENAME_LEN = 256
Public Function SerNum(Drive$) As Long
    Dim No&, s As String * MAX_FILENAME_LEN
    Call GetVolumeInformation(Drive + ":\", s, MAX_FILENAME_LEN, _
    No, 0&, 0&, s, MAX_FILENAME_LEN)
    SerNum = No
End Function
Sub GetSer()
MsgBox SerNum(InputBox("Please enter the drive of which you desire the serial number", "Serials"))
End Sub

good luck

[ans]

It good work for your reply, Thanks david.

[da_silvy]

don't mention it, maybe one day you'll help me