HDD Serial number - How?

How can I get the harddrive serial number
and also make sure it is from the first harddrive?
(Copy protection)

Not good.

The hard drive number is SO easy to change. There are lots of utilities and it's the first thing a pirate will try.

Better to lock to multiple items, like the MAC number of the network card or CPU serial number.

I've written some routines that fingerprint the CPU, Net card, Video card, Motherboard, BIOS, Hard Drive etc. that you are welcome to - but they are written in vb.net, I'm afraid, and will not work with vb6.

Thanks and sugar I am still on VB6.

any other suggestion. BTW the app has not to be
100% protected (there is no 100%) and the clients I am looking
are no hackers. The only thing which I will make sure
there usingit only on n computers where there have a licence.
and there should be a demo restriction in it.

but every help is welcome.

I think this is what you are after.

Hey BrianHawley would it be possible to get the vb.net code youve wrote for logging hardware serials

Many Thanks

Carl

hi,

looking to these links may help:

http://www.visualbasicforum.com/show...arddisk+serial

http://oldlook.experts-exchange.com/..._20745966.html

Or take a look at the A program registration scheme link in my signature. It is a little demo app that registers a user based on the HDD serial number. It doesn't really matter if they can discover/change their HDD serial number because my app stores an encrypted value in the registry that needs to match the serial number. There is also a discussion in the thread about multiple things that can be checked if you don't think that just the HDD is good enough.

Quote:

---

Originally posted by carlblanchard
Hey BrianHawley would it be possible to get the vb.net code youve wrote for logging hardware serials

Many Thanks

Carl

---

http://www.vbforums.com/showthread.p...hreadid=250436

This is C#, but it should port easily.

here's a quick example i knocked up , for the purpose of retrieving the first HD.

VB Code:

Private Sub Command1_Click()
Dim HD As Object
Dim x As Integer
x = 0
For Each HD In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("select * from Win32_LogicalDisk")
    If HD.MediaType = 12 Then '/// make sure we only get hard-drives.
    If x = 0 Then'/// to allow only first to be shown.
        MsgBox HD.Caption & vbCrLf & HD.VolumeSerialNumber
      x = 1
    End If
    End If
Next
End Sub