Retrieve Hard Disk Serial Number Using VB [Not Volume Number]

[coltair]

I need help in reading the Hard Disk Serial Number [Not the volume number] using VB. Currently I am using VB5.

I have found a site that has the program to read the serial number but it is written in C++.

Can anyone convert it to a DLL or has any other solution for it.

The site is http://www.winsim.com/

Thank you.

[Breax]

i went to the website but couldn't find the link.
can you specify?

[coltair]

The specific link is http://www.winsim.com/diskid32/diskid32.html

Thanks for the reply

[rfo]

You don't need any third party software. You can either use
the API Function GetVolumeInformation or Scripting.FileSystemobject.GetDrive(Drive$).SerialNumber

[jbart]

Take a look here >> http://www.vbapi.com/ref/g/getvolumeinformation.html for more information on using the API.

[Luis Moises Rojas]

Check this code:

Public Function DiskSerialNumber(sDrive As Drive) As String
Rem obtener numero de serial utilizando la libreria de rem objeto del reference
Dim Fso As New Scripting.FileSystemObject
Dim dr As Scripting.Drive
Set dr = Fso.GetDrive(sDrive)
DiskSerialNumber = Hex$(dr.SerialNumber)
End Function

[HeSaidJoe]

Both API and FSO codes listed here are for Volume Serial Number...not the MFG Serial Number.

[coltair]

I believe those codes are for Volume Number and not the Manufacturer Number.

[HeSaidJoe]

coltair...did you get my email? If not check it out. I have an app that may do it for you.

[D12Bit]

Hi,
HeSaidJoe, could you please be so kind to share it with me too, i have been looking for
that a long time ago, because i had back in the old msdos an routine made in turbo c
that gave me the MFG serial number but that method isn't compatible with the protected
mode of 32bits of actual os's.

So please tell me that you have it and could spare a copy for me

Saludos...

Mail me please

Hi,
HeSaidJoe, could you please be so kind to share it with me too, i have been looking for that also for a long time.

Jorgen

[email protected]

[smalig]

The example to obtain REAL HDD serial (ActiveX written on C++ with source code and example on VB how to use it)

http://www.relib.com/code.asp?id=482

to download zip click to

http://www.relib.com/code/x482.zip

[meegho]

Plz everybody, I need these files to get the *PHYSICAL* hard disk serial number

I don't know how to get "HeSaidJoe" files

and the link for "http://www.relib.com/code/x482.zip" which sent by "smalig" does not work

so anyone knows the answer plz help coz I need it ASAP

[wrack]

see the attachment...

[D12Bit]

the : GetVolumeInformation API call will only give you the
serial number assigned to the harddisk during the format...

the Serial number looked for in here is the Serial number that is assigned to the BIOS of the HD...just like the MAC address of a NIC (Network Interface Card)

I actually managed to get my hands on a driver and some workingng code for Win9x/Me/2K ...not tested on XP...

the bad news is that the partition on the HD where I had stored that wen't bye bye on me...

I sent that code to a friend before that...I'm trying to get in contact with him...

But YES! ...it really works! ...and it really gives me the REAL and not changeable HD Serial number... that I actually I'm using for protecting some of my apps...the only thing that I managed to save was the OCX that I made for that and the Registration Serial number generator...

I'll post asap the code and the files used for this...

p.s.
I don't remember where...but this I found it searching in the net...
a lot of hard work but it was worth it...(even tho I have to do it again )

[Myvar]

Is this the OCX, you was looking for? Reading out the Hardwareserial given by the Manufacturer.

Hope it helps,

MyVar.

[UPS, wheres the File I attached?]

[Myvar]

Is this the OCX, you was looking for? Reading out the Hardwareserial given by the Manufacturer.

http://www.vbfun.de/vb/index.htm --> Komponents-->System-->"Hardware-Informationen"-->Download hwinfo.zip

Hope it helps,

MyVar.