The following requires Windows Scripting to be installed.

Clear
On Error *
lcComputer = "."
loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
colItems = loWMIService.ExecQuery("Select * from Win32_Processor")
For Each loItem In colItems
	?"Address Width: " + Transform(loItem.AddressWidth)
	?"Architecture: " + Transform(loItem.Architecture)
	?"Availability: " + Transform(loItem.Availability)
	?"CPU Status: " + Transform(loItem.CpuStatus)
	?"Current Clock Speed: " + Transform(loItem.CurrentClockSpeed)
	?"Data Width: " + Transf(loItem.DataWidth)
	?"Description: " + loItem.Description
	?"Device ID: " + loItem.DeviceID
	?"Ext Clock: " + Transform(loItem.ExtClock)
	?"Family: " + Transform(loItem.Family)
	?"L2 Cache Size: " + Transform(loItem.L2CacheSize)
	?"L2 Cache Speed: " + Transform(loItem.L2CacheSpeed)
	?"Level: " + Transform(loItem.Level)
	?"Load Percentage: " + Transform(loItem.LoadPercentage)
	?"Manufacturer: " + loItem.Manufacturer
	?"Maximum Clock Speed: " + Transform(loItem.MaxClockSpeed)
	?"Name: " + loItem.Name
	?"PNP Device ID: " + loItem.PNPDeviceID
	?"Processor Id: " + loItem.ProcessorId
	?"Processor Type: " + Transform(loItem.ProcessorType)
	?"Revision: " + Transform(loItem.Revision)
	?"Role: " + loItem.Role
	?"Socket Designation: " + loItem.SocketDesignation
	?"Status Information: " + Transform(loItem.StatusInfo)
	?"Stepping: " + loItem.Stepping
	?"Unique Id: " + loItem.UniqueId
	?"Upgrade Method: " + Transf(loItem.UpgradeMethod)
	?"Version: " + loItem.Version
	?"Voltage Caps: " + Transform(loItem.VoltageCaps)
Next

>What about the CPU, is it possible to get a SN# from the CPU itself?
>
>
>>I just got the same solution form some other site thanks.
>>
>>
>>>This might help
>>>

drvPath="c:\"
>>>ofs=CreateObject('Scripting.FilesystemObject')
>>>drv = ofs.GetDrive(ofs.GetDriveName(drvPath))
>>>? drv.SerialNumber

>>>
>>>Or if more information is needed, this link might help
>>>
>>>http://www.news2news.com/vfp/?example=98&function=145
>>>
>>>
>>>>I dont remember how to get the HD serial from VFP
>>>>
>>>>can any one helpme?
>>>>
>>>>Thanks.