AU3如何获取CPU型号[已解决]

dyd · 发表于 2011-4-22 08:17:25

本帖最后由 dyd 于 2011-5-7 09:58 编辑

求获取CPU型号源码

hzxymkb · 发表于 2011-4-22 09:17:31

@CPUArch

hbwazxf · 发表于 2011-4-22 09:55:24

版主正解。。。。。。

zitoy · 发表于 2011-4-22 11:46:45

@CPUArch，也是刚知道。

dyd · 发表于 2011-4-22 12:01:57

谢谢谢谢，我试试

dyd · 发表于 2011-4-22 12:05:19

这个只能知道CPU架构，我想知道CPU的型号，如Pentium(r) cpu 2.8GHz

3mile · 发表于 2011-4-22 12:52:32

#include <array.au3>
Global        $wbemFlagReturnImmediately        = 0x10, _        ;DO NOT CHANGE
$wbemFlagForwardOnly                = 0x20                                ;DO NOT CHANGE

local $aa
_ComputerGetProcessors($aa)
_ArrayDisplay($aa)

Func _ComputerGetProcessors(ByRef $aProcessorInfo)
        Local $colItems, $objWMIService, $objItem
        Dim $aProcessorInfo[1][42], $i = 1
        
        $objWMIService = ObjGet("winmgmts:\\" & @ComputerName & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
        
        If IsObj($colItems) Then
                For $objItem In $colItems
                        ReDim $aProcessorInfo[UBound($aProcessorInfo) + 1][42]
                        $aProcessorInfo[$i][0]  = StringStripWS($objItem.Name, 1)
                        $aProcessorInfo[$i][1]  = $objItem.AddressWidth
                        $aProcessorInfo[$i][2]  = $objItem.Architecture
                        $aProcessorInfo[$i][3]  = $objItem.Availability
                        $aProcessorInfo[$i][4]  = $objItem.Description
                        $aProcessorInfo[$i][5]  = $objItem.ConfigManagerErrorCode
                        $aProcessorInfo[$i][6]  = $objItem.ConfigManagerUserConfig
                        $aProcessorInfo[$i][7]  = $objItem.CpuStatus
                        $aProcessorInfo[$i][8]  = $objItem.CreationClassName
                        $aProcessorInfo[$i][9]  = $objItem.CurrentClockSpeed
                        $aProcessorInfo[$i][10] = $objItem.CurrentVoltage
                        $aProcessorInfo[$i][11] = $objItem.DataWidth
                        $aProcessorInfo[$i][12] = $objItem.DeviceID
                        $aProcessorInfo[$i][13] = $objItem.ErrorCleared
                        $aProcessorInfo[$i][14] = $objItem.ErrorDescription
                        $aProcessorInfo[$i][15] = $objItem.ExtClock
                        $aProcessorInfo[$i][16] = $objItem.Family
                        $aProcessorInfo[$i][17] = $objItem.L2CacheSize
                        $aProcessorInfo[$i][18] = $objItem.L2CacheSpeed
                        $aProcessorInfo[$i][19] = $objItem.LastErrorCode
                        $aProcessorInfo[$i][20] = $objItem.Level
                        $aProcessorInfo[$i][21] = $objItem.LoadPercentage
                        $aProcessorInfo[$i][22] = $objItem.Manufacturer
                        $aProcessorInfo[$i][23] = $objItem.MaxClockSpeed
                        $aProcessorInfo[$i][24] = $objItem.OtherFamilyDescription
                        $aProcessorInfo[$i][25] = $objItem.PNPDeviceID
                        $aProcessorInfo[$i][26] = $objItem.PowerManagementCapabilities(0)
                        $aProcessorInfo[$i][27] = $objItem.PowerManagementSupported
                        $aProcessorInfo[$i][28] = $objItem.ProcessorId
                        $aProcessorInfo[$i][29] = $objItem.ProcessorType
                        $aProcessorInfo[$i][30] = $objItem.Revision
                        $aProcessorInfo[$i][31] = $objItem.Role
                        $aProcessorInfo[$i][32] = $objItem.SocketDesignation
                        $aProcessorInfo[$i][33] = $objItem.Status
                        $aProcessorInfo[$i][34] = $objItem.StatusInfo
                        $aProcessorInfo[$i][35] = $objItem.Stepping
                        $aProcessorInfo[$i][36] = $objItem.SystemCreationClassName
                        $aProcessorInfo[$i][37] = $objItem.SystemName
                        $aProcessorInfo[$i][38] = $objItem.UniqueId
                        $aProcessorInfo[$i][39] = $objItem.UpgradeMethod
                        $aProcessorInfo[$i][40] = $objItem.Version
                        $aProcessorInfo[$i][41] = $objItem.VoltageCaps
                        $i += 1
                Next
                $aProcessorInfo[0][0] = UBound($aProcessorInfo) - 1
                If $aProcessorInfo[0][0] < 1 Then
                        SetError(1, 1, 0)
                EndIf
        Else
                SetError(1, 2, 0)
        EndIf
EndFunc ;_ComputerGetProcessors

haijie1223 · 发表于 2011-4-22 13:06:55

Local $i,$j
$i=RegRead ("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString" )
$j=RegRead ("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\1", "ProcessorNameString" )
If $i <> "" Then
        MsgBox(0,"","本机的CPU型号为："&$i)
Else
        MsgBox(0,"","本机的CPU型号为："&$j)
EndIf

lluxury · 发表于 2011-4-22 13:18:27

知道以后,楼主打算做什么呢

5i5wei · 发表于 2011-4-22 14:10:45

3smile 强大

haodd · 发表于 2011-4-22 15:07:00

很好的帖子很好的问题

zzz867 · 发表于 2011-5-6 10:35:02

真的很不錯，經常上論壇能學到很多東西

guang19831217 · 发表于 2011-5-6 12:28:33

很好的东西，学习了。

lhy6456210 · 发表于 2011-5-6 19:33:36

不错又学到一招

netegg · 发表于 2011-5-7 04:48:28

楼主所指的型号是些什么参数

		自动登录	找回密码
密码			加入

[系统综合] AU3如何获取CPU型号[已解决]