Reading Compter Hardware Information.

[rob]

Hi all,

I am after some method of reading unique information from each PC. This
could be:-

HardDisk Serial Number
CPU Serial Number
BIOS Serial Number
MEMORY Number

Having looked at API sites I have failed to see a Call that can help me with
this task.

Has anyone got an idea how I can do this from VFP

Many thanks in Advance

Rob

[Jim Macklin]

www.belarc.com

http://www.aida32.hu/aida32.php


"rob" > wrote in message
...
| Hi all,
|
| I am after some method of reading unique information from
each PC. This
| could be:-
|
| HardDisk Serial Number
| CPU Serial Number
| BIOS Serial Number
| MEMORY Number
|
| Having looked at API sites I have failed to see a Call
that can help me with
| this task.
|
| Has anyone got an idea how I can do this from VFP
|
| Many thanks in Advance
|
| Rob
|
|
|
|

[Andrew R]

Rob,

I can't do them all but the Hard Disk serial number is

fso = create('Scripting.FileSystemObject')

lcSerial = substr(transform(fsp.drives.item('C').SerialNumber , '@0'), 3)

assuming you want it in Hex.

Andrew R.



"rob" > wrote in message
...
> Hi all,
>
> I am after some method of reading unique information from each PC. This
> could be:-
>
> HardDisk Serial Number
> CPU Serial Number
> BIOS Serial Number
> MEMORY Number
>
> Having looked at API sites I have failed to see a Call that can help me
with
> this task.
>
> Has anyone got an idea how I can do this from VFP
>
> Many thanks in Advance
>
> Rob
>
>
>
>

[rob]

Andrew,

I believe this is the Volume Serial Number which I understand can be
changed.

Jim pointed me to two sites than can read Data from the system, such as the
actual Serial Number and not the volume number as lcSerial =
substr(transform(fsp.drives.item('C').SerialNumber , '@0'), 3) returns.

I'm trying to develop some copy protection for my software.

Rgds

Rob
"Andrew R" > wrote in message
...
> Rob,
>
> I can't do them all but the Hard Disk serial number is
>
> fso = create('Scripting.FileSystemObject')
>
> lcSerial = substr(transform(fsp.drives.item('C').SerialNumber , '@0'), 3)
>
> assuming you want it in Hex.
>
> Andrew R.
>
>
>
> "rob" > wrote in message
> ...
> > Hi all,
> >
> > I am after some method of reading unique information from each PC. This
> > could be:-
> >
> > HardDisk Serial Number
> > CPU Serial Number
> > BIOS Serial Number
> > MEMORY Number
> >
> > Having looked at API sites I have failed to see a Call that can help me
> with
> > this task.
> >
> > Has anyone got an idea how I can do this from VFP
> >
> > Many thanks in Advance
> >
> > Rob
> >
> >
> >
> >
>
>