Getting hardward serial number 2

[GEThomas]

Is there any way in FoxPro that I can retrieve the serial number of the CPU or the hard drive. What I want to do is limit my program to running on a specific computer (a crude form of security). I figure if I check a hardware serial number that should do it.

Is there a DLL I could call? Any other suggestions?

Thanks.

 

[ramani]

Hi

Look in this link..
Copy protection routine... Your thoughts!!!!
thread184-520931

But there are other ways by which you can control even the number of users you can allow in your application. For example.. look in the FAQ..

How to limit the number of users for an application ? faq184-1263

My suggestion... limiting to harddisk.. is little cruel when the user has bought the software for use. However allowing the user to work for 'n' concurrent users as they might have taken the license is a welcome control.



____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

 

[GEThomas]

I am not selling this application. I am giving it to a few friends to evaluate and don't want it to be copied and used on another computer. If I feel that's it's worth selling, then I will implement a less strigent version of protection.

I will take a look at your suggestions.

Thanks.

 

[darrellblackhawk]

This will work also:

? GetSerialNum("c")

FUNCTION GetSerialNum(cDrive)
* Return the HDD serial# of a Drive
local oFs, oDrive

oFs = CREATEOBJECT("Scripting.FileSystemObject")
oDrive = oFs.GetDrive(cDrive)

RETURN oDrive.SerialNumber
ENDFUNC

Darrell

 

[rgbean]

Darrell,
Unfortunately that's the "soft" serial number that's easily changed of copied with Ghost or other similar programs.

Rick

 

[darrellblackhawk]

Rgbean:

You are correct!

Darrell

 

[Juris]

Why not use WMI?
For example:

strComputer = "."
objWMIService = GetObject("winmgmts:\\" + strComputer + "\root\cimv2")
colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
For Each objItem in colItems
? "Caption: "
?? objItem.Caption
? "Manufacturer: "
?? objItem.Manufacturer
? "Model: "
?? objItem.Model
? "PNPDeviceID: "
?? objItem.PNPDeviceID
Next



Juri Shutenko
Municipality of Maardu, Estonia

http://kodu.neti.ee/~juri4

http://www.hot.ee/jurisfox

 

[Mike Gagnon]

Juris

I don't see a serial number in there. I must be getting old.

How about using FileScripting

On Error *
CLEAR 
loFSO = Createobject("Scripting.FileSystemObject")
Clear
colDrives = loFSO.Drives
For Each loDrive In colDrives
	If loDrive.DriveLetter = "C"
		?"Available space: " + Transform(loDrive.AvailableSpace)
		?"Drive letter: " + loDrive.DriveLetter
		?"Drive type: " + Iif(loDrive.Drivetype=1,"External",;
			IIF(loDrive.Drivetype=2,"Hard disk","CD ROM"))
		?"File system: " + loDrive.FileSystem
		?"Free space: " + Transform(loDrive.FreeSpace)
		?"Is ready: " + Transform(loDrive.IsReady)
		?"Path: " + loDrive.Path
		?"Is this a Root folder: " + Transform(loDrive.RootFolder.IsRootFolder)
		?"Serial number: " + Transform(loDrive.SerialNumber)
		?"Share name: " + loDrive.ShareName
		?"Total size: " + Transform(loDrive.TotalSize)
		?"Volume name: " + loDrive.VolumeName
	Endif
Next

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[rob444]

Good stuff Mike!

I would change the
?"Serial number: " + Transform(loDrive.SerialNumber)
to
?"Serial number: " + Transform(loDrive.SerialNumber,"@0")


Rob.

 

[rob444]

A star for both Juris and Mike

Rob.

 

[rob444]

Off topic!
Juri,

too bad your site navigation doesn't work!

http://www.hot.ee/jurisfox

Rob.

 

[Juris]

2Mike Gagnon.

FileSystemObject retuns "serial number" that is obtained by harddisk after formating.

WMI returns PNPDeviceId that contains model of the harddrive and part of the real serial number, that is set by manufacturer beside among other properties.

I think both methods FSO and WMI are suitable here.



Juri Shutenko
Municipality of Maardu, Estonia

http://kodu.neti.ee/~juri4

http://www.hot.ee/jurisfox

 

[Juris]

2Rob.
Iäm sorry.The English version of the site not ready yet.

Juri Shutenko
Municipality of Maardu, Estonia

http://kodu.neti.ee/~juri4

http://www.hot.ee/jurisfox