Look into APIs for this on Microsoft's web site.
it took me 11 seconds to find:
Code:
Private Sub Command1_Click()
Dim root As String
Dim volume_name As String
Dim serial_number As Long
Dim max_component_length As Long
Dim file_system_flags As Long
Dim file_system_name As String
Dim pos As Integer
root = Text1.Text
volume_name = Space$(1024)
file_system_name = Space$(1024)
If GetVolumeInformation(root, volume_name, _
Len(volume_name), serial_number, _
max_component_length, file_system_flags, _
file_system_name, Len(file_system_name)) = 0 _
Then
MsgBox("Error getting volume information.")
Exit Sub
End If
pos = InStr(volume_name, Chr$(0))
volume_name = Left$(volume_name, pos - 1)
lblVolumeName.Caption = volume_name
lblSerialNumber.Caption = Format$(serial_number)
lblMaxComponentLength.Caption = _
Format$(max_component_length)
pos = InStr(file_system_name, Chr$(0))
file_system_name = Left$(file_system_name, pos - 1)
lblFileSystem.Caption = file_system_name
lblFlags.Caption = "&&H" & Hex$(file_system_flags)
End Sub
Another couple secs to find
http://msdn2.microsoft.com/en-us/library/aa364993.aspx.
Then there is
http://support.microsoft.com/kb/139547. (This is C, but perhaps the info there will help, especially the text explaining the code that's posted there.)
As they say: Search the Web...
Hard Disk Serial Number
