Get Hardware\HDD unchanged ID

[Nitzan Aviram]

Hye
I am trying to create a protection for a program, wich suppose to prevet the user from installing it on more than one computer. How can I recognize a computer(its hardwares). I am looking for somthing like unchanged ID of a HDD, a Floppy Disk or other hardwares.

Form Niztan Aviram.
Any help whould be highly appreciated.

[Vanclei Matheus]

You can use the FileSystemObjects to get the Serial Number of a HD.

Put in references of your project the library:

"Microsoft Scripting Runtime"

and, try this code:


Dim fs as new FileSystemObject, drv as Drive
Dim lSerialNumber as Long

'Here you can specfy the drive of windows
set drv = fs.GetDrive("C:\")

'get the serial number of specified drive
lSerialNumber = drv.SerialNumber




The variable lSerialNumber will contain the Serial Number of drive C:\ in decimal notation.

Ok!


Vanclei Matheus
techno_dreamer@yahoo.com.br
Techno Dreamer

[nikidd]

And what if I format the volume? The number is changed and I must connect to the developer and say "My Windows crashed up and i format the drive. Please activate my program again!"?

[nikidd]

Hi,

you can try this. I didn't test it yet so use it on your won risk. It is working for me.