Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

'Br as string-Ime diska kao <<"C:\">>

Function BrojP(Br As String) As String
Dim Root As String
Dim Vol_N As String
Dim Ser_Br As Long
Dim Flag As Long
Dim Sys_Ime As String
Dim Pos As Integer
Dim Max_duz

Root = Br
Vol_N = Space$(1024)
Sys_Ime = Space$(1024)

If GetVolumeInformation(Root, Vol_N, _
Len(Vol_N), Ser_Br, _
Max_duz, Flag, _
Sys_Ime, Len(Sys_Ime)) = 0 _
Then
MsgBox "Greška pri definisanju broja"
Exit Function
End If

Pos = InStr(Vol_N, Chr$(0))
Vol_N = Left$(Vol_N, Pos - 1)

BrojP = Ser_Br
End Function
Ovo mora da radi i sa vise diskova

GetVolumeInformation ne vraca "fizicki" serial HDDa. Broj koji se dobija sa GetVolumeInformation se menja prilikom formatiranja HDDa. Zbog toga se koriste neke druge stvari kao sto je HDDID32.dll

Sad sam googlovao za hddid32.dll i to ime fajla se pominje samo na jednom mestu. Ovde gde da nadjem taj fajl?

Pominje se ovde jer je neko (zaboravih ko) sa foruma to i pravio. Pogledaj ovu temu.

Evo i u attchmentu jedan VB sample