Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
HD serial#
Message
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00963486
Message ID:
00963608
Views:
8
You are correct.

>Mike,
>
>It requires WMI not WSH.
>
>>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
>>
Previous
Reply
Map
View

Click here to load this message in the networking platform