VBS脚本文件检测CPU

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colCPUs = objWMIService.InstancesOf("Win32_Processor")
Set colCaches = objWMIService.InstancesOf("Win32_CacheMemory")

For Each objCPU In colCPUs
WScript.Echo "CPU设备：" & objCPU.DeviceID
WScript.Echo "CPU名称: " & ltrim(objCPU.Name)
WScript.Echo "CPU描述：" & objCPU.Description
WScript.Echo "制造商：" & objCPU.Manufacturer
WScript.Echo "接口规格：" & objCPU.SocketDesignation
WScript.Echo "地址宽度：" & objCPU.AddressWidth & "位"
WScript.Echo "数据宽度：" & objCPU.DataWidth & "位"
WScript.Echo "CPU电压：" & objCPU.CurrentVoltage / 10 & "V"
WScript.Echo "主频速度：" & objCPU.CurrentClockSpeed & "MHZ"
WScript.Echo "外频速度：" & objCPU.ExtClock & "MHZ"
WScript.Echo "CPU缓存："
     For Each objCache In colCaches
         Select Case objCache.Level
         case 3
             WScript.Echo chr(9) & "一级缓存大小(数据缓存+跟踪缓存)：" & objCache.MaxCacheSize & "KB"
         case 4
             WScript.Echo chr(9) & "二级缓存大小：" & objCache.MaxCacheSize & "KB"
         case 5
             WScript.Echo chr(9) & "三级缓存大小：" & objCache.MaxCacheSize & "KB"
         End Select
     Next
Next