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>>