Ponovo HDD serial

Znači imam Serial.dll i imam HDDID32.dll ali mi ni jedan neuspjeva izvući serijski broj HDD-a. Kod prvog mi vraća Nulu a kod drugog da getHardDriveComputerID funkcija nepostoji u HDDID32.dll.
Zbog čega mi se ovo događa? Dali je možda zato što imam 2 HDD-a?

Potpis

I ♥ ♀

Ovaj post je zlata vrijedan!

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

Potpis

zxz

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

Potpis

Blue Man Group

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

Potpis

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

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

Evo i u attchmentu jedan VB sample

Potpis

Blue Man Group