[es] - Ponovo HDD serial

icobh
Igor Pejašinović
PEJAŠINOVIĆ LTD.
Stara Dubrava, RS, BiH

Član broj: 18738
Poruke: 967
*.teol.net

Sajt: localhost

Profil

Ponovo HDD serial

^{15.02.2004. u 18:02}

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?

I ♥ ♀

Ovaj post je zlata vrijedan!

^{15.02.2004. u 18:02}

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 378
195.222.59.*

Sajt: www.icentar.com

Profil

Re: Ponovo HDD serial

^{28.10.2004. u 22:58}

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

zxz

^{28.10.2004. u 22:58}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Ponovo HDD serial

^{29.10.2004. u 09:12}

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

Blue Man Group

^{29.10.2004. u 09:12}

vujkev
Darko Vujičić
Telekom Srbija AD
Beograd

Član broj: 8072
Poruke: 795
*.scnet.yu.

Sajt: www.suvu.co.yu

Profil

Re: Ponovo HDD serial

^{29.10.2004. u 11:00}

Sad sam googlovao za hddid32.dll i to ime fajla se pominje samo na jednom mestu. Ovde

gde da nadjem taj fajl?

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

^{29.10.2004. u 11:00}

Re: Ponovo HDD serial

^{29.10.2004. u 11:36}

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

Evo i u attchmentu jedan VB sample

Blue Man Group

Prikačeni fajlovi

HDDSerial.rar - 11.09k

^{29.10.2004. u 11:36}