[Tutorial]API to Get Hard Drive Serial Number

[Dxt-Cobra]

API to Get Hard Drive Serial Number
Use this code to get a hard drive, floppy, CD-ROM, ... serial number.


Private Declare Function GetVolumeInformation _
Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal pVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaxComponentLentgh As Long, _
lpFileSysyemFlags As Long, _
ByVal lpFileSystemBuffername As String, _
ByVal nFileSystemNameSize As Long) As Long

Public Function GetSerialNumber(ByVal sDrive As String) As Long

If Len(sDrive) Then
If InStr(sDrive, "\\") = 1 Then
'Make sure we end in backslash for UNC
If Right$(sDrive, 1) <> "\" Then
sDrive = sDrive & "\"
End If
Else
'If not UNC take first letter as drive
sDrive = Left$(sDrive, 1) & ":\"
End If
Else
'Use current drive
sDrive = vbNullString
End If

Call GetVolumeInformation(sDrive, vbNullString, 0, GetSerialNumber, ByVal 0&, _
ByVal 0&, vbNullString, 0)
End Function

Private Sub Command1_Click()
Dim sDrive As String

sDrive = InputBox("Enter drive for checking SN")
MsgBox Hex$(GetSerialNumber(sDrive))
End Sub

[sukh13]

hmm how to use this

[SH15TER]

this is for in the Module,
to get Hard Drive Serial Number!!

[[OWNAGE]]

this is for in the Module,
to get Hard Drive Serial Number!!

All good but this is Volume Serial number right?

You can change that :P

[Wieter20]

i think its nice but not well explained how to do

btw i mean i positieve because i couldnt do this for shit..:P

[zezima]

Thanks Cobra! This is a one long API! This thing is so easy to work with! Thanks A lot man!:DblueteamenforcerStr8

[littlemast]

Thanks just what i need :P

[kaswar]

Each pc has a different serial right?

Thanks, Been looking for this :)

[NevaLess]

Each pc has a different serial right?

Thanks, Been looking for this :)

Yep, but the serial can be masked way to easily.
It's a yet very unsafe.
It does work though.

[BazzleStag]

What port is the main computers serial? Cuz it asks me for a port.

[marexblue]

just tested it in my vb6 ide. it works fine. for those lazy noob that cant able to figure this out. i attach a created project...


credit to dxt-cobra.