Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: john satellite
  Where is john satellite?
 zj
 China
 john satellite
 To: Karben Selim Mejia
  Where is Karben Selim Mejia?
 San Pedro Sula
 Honduras
 Karben Selim Mejia
 Tags
Subject: RE: get hard disk and CPU infomation
Thread ID: 15823 Message ID: 15829 # Views: 4 # Ratings: 0
Version: Unknown Category: General VFP Topics
Date: Tuesday, October 01, 2002 8:19:59 PM         
   


Dear Karben,
Thank you very much. Would you tell me the way to get the serial number of the mainboard(BIOS information) in VFP 7.0 ? I want to get it from the users of my applications you know. But as I know the best way is to get the above information, isn't it? Please help me. Thank you again.

Johh Satellite

> > Dear experts:
> > Is there anyway to get hard disk and CPU information in VFP 7? thanks.
> >
> > John Satellite
>
> There is a command to get the type of procesor you're using
>
>
> ?sys(17)
> 

>
> don't know if it helps
>
> and for the serial number of your harddisk you can use this code
>
> LOCAL lcRootPathName , lcVolumeNameBuffer , lnVolumeNameSize , ;
> lnVolumeSerialNumber , lnMaximumComponentLength, lnFileSystemFlags , ;
> lcFileSystemNameBuffer, lnFileSystemNameSize , lcVolname
> 
> DECLARE SHORT GetVolumeInformation IN kernel32 ;
>    STRING lpRootPathName,;
>    STRING @lpVolumeNameBuffer,;
>    INTEGER nVolumeNameSize,;
>    INTEGER @lpVolumeSerialNumber,;
>    INTEGER @lpMaximumComponentLength,;
>    INTEGER @lpFlags,;
>    STRING @lpFileSystemNameBuffer,;
>    INTEGER nFileSystemNameSize
> 
> 
> lcRootPathName = "K:\" && you can replace this with your drive letter
> lcVolumeNameBuffer = SPACE(256)
> lnVolumeNameSize = 256
> lnVolumeSerialNumber = 0
> lnMaximumComponentLength = 256
> lnFileSystemFlags = 0
> lcFileSystemNameBuffer = SPACE(256)
> lnFileSystemNameSize = 256
> 
> =GetVolumeInformation(@lcRootPathName , @lcVolumeNameBuffer , ;
>             lnVolumeNameSize , @lnVolumeSerialNumber, ;
>             @lnMaximumComponentLength, @lnFileSystemFlags , ;
>             @lcFileSystemNameBuffer , lnFileSystemNameSize )
> 
> 
> lcMess = "Volume Name: " + LEFT(ALLTRIM(lcVolumeNameBuffer),LEN(lcVolumeNameBuffer)-1) + CHR(13) + ;
> "Serial No : " + TRANSFORM(lnVolumeSerialNumber)
> ? lcMess
> 

>
> this above code was shared by Eric den in this site
>
> Karben Selim Mejia (Mejiaks)
>
> I used to think that my life was complete. it was until my (by now) Two-years-old child was born that I realized how wrong I was!
> Honduras, Central America
> The very center of the world


ENTIRE THREAD

get hard disk and CPU infomation Posted by john satellite @ 10/1/2002 6:52:03 PM
RE: get hard disk and CPU infomation Posted by Karben Selim Mejia @ 10/1/2002 7:52:26 PM
RE: get hard disk and CPU infomation Posted by john satellite @ 10/1/2002 8:19:59 PM