本帖最后由 sh1536 于 2021-10-26 20:15 编辑
一次查询所有的内存设备WIN32的所有属性，借用樱桃大神的代码更新下，顺便做个标记，下次用的时候方便
“.Manufacturer”这个属性获得品牌的英文名字，要获得中文名字，最好再封装一个函数“.MemoryType”理论上这个属性可以获得内存类型，但是我在自己电脑上测试获得是0，官方文件也说“May not be available”，可以通过
“.Speed”这个属性来判断是第几代，不过需要再封装一个函数，一般速率和代数是对应的
PS：论坛的代码上传怎么会少一个 \
第19行掉了一个符号，改为：$objWMIService = ObjGet("winmgmts:\\" & $cI_CompName & "\root\CIMV2")#include <Array.au3>
$Result = _ComputerGetMemory()
_ArrayDisplay($Result, "WMI类 - Win32_PhysicalMemory 所有属性（内存条）", "", 0, Default, _
'属性|库标签|容量（单位KB）|描述|时钟速度|电压|类名|内存带宽|描述|设备定位器|' & _
'存在形式|是否支持热插拔|安装日期（无值）|数据交错深度|交错的位置|生产商|最大电压|' & _
'内存类型|最小电压|型号|名字|其他识别信息|零件编号|行位置|是否接通电源|是否可拆卸|' & _
'是否可更换|编号|SKU|SMBIOS内存类型|速率|状态|标签|总宽度（位）|类型详细信息|版本信息')
Func _ComputerGetMemory()
;https://docs.microsoft.com/en-us/windows/win32/cimwin32prov/win32-physicalmemory
;2021.07.01
Local $wbemFlagReturnImmediately = 0x10
Local $wbemFlagForwardOnly = 0x20
Local $cI_CompName = @ComputerName
Local $colItems, $objWMIService, $objItem
Dim $aMemoryInfo[1][36], $i = 1
$objWMIService = ObjGet("winmgmts:\" & $cI_CompName & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
For $objItem In $colItems
ReDim $aMemoryInfo[UBound($aMemoryInfo) + 1][36]
$aMemoryInfo[$i][0] = $objItem.Attributes ;属性
$aMemoryInfo[$i][1] = $objItem.BankLabel ;库标签
$aMemoryInfo[$i][2] = $objItem.Capacity ;容量（单位KB）
$aMemoryInfo[$i][3] = $objItem.Caption ;描述
$aMemoryInfo[$i][4] = $objItem.ConfiguredClockSpeed ;时钟速度
$aMemoryInfo[$i][5] = $objItem.ConfiguredVoltage ;电压
$aMemoryInfo[$i][6] = $objItem.CreationClassName ;类名
$aMemoryInfo[$i][7] = $objItem.DataWidth ;内存带宽
$aMemoryInfo[$i][8] = $objItem.Description ;描述
$aMemoryInfo[$i][9] = $objItem.DeviceLocator ;设备定位器
$aMemoryInfo[$i][10] = $objItem.FormFactor ;存在形式
$aMemoryInfo[$i][11] = $objItem.HotSwappable ;是否支持热插拔
$aMemoryInfo[$i][12] = $objItem.InstallDate ;安装日期（无值）
$aMemoryInfo[$i][13] = $objItem.InterleaveDataDepth ;数据交错深度
$aMemoryInfo[$i][14] = $objItem.InterleavePosition ;交错的位置
$aMemoryInfo[$i][15] = $objItem.Manufacturer ;生产商
$aMemoryInfo[$i][16] = $objItem.MaxVoltage ;最大电压
$aMemoryInfo[$i][17] = $objItem.MemoryType ;内存类型
$aMemoryInfo[$i][18] = $objItem.MinVoltage ;最小电压
$aMemoryInfo[$i][19] = $objItem.Model ;型号
$aMemoryInfo[$i][20] = $objItem.Name ;名字
$aMemoryInfo[$i][21] = $objItem.OtherIdentifyingInfo ;其他识别信息
$aMemoryInfo[$i][22] = $objItem.PartNumber ;零件编号
$aMemoryInfo[$i][23] = $objItem.PositionInRow ;行位置
$aMemoryInfo[$i][24] = $objItem.PoweredOn ;是否接通电源
$aMemoryInfo[$i][25] = $objItem.Removable ;是否可拆卸
$aMemoryInfo[$i][26] = $objItem.Replaceable ;是否可更换
$aMemoryInfo[$i][27] = $objItem.SerialNumber ;编号
$aMemoryInfo[$i][28] = $objItem.SKU ;SKU
$aMemoryInfo[$i][29] = $objItem.SMBIOSMemoryType ;SMBIOS内存类型
$aMemoryInfo[$i][30] = $objItem.Speed ;速率
$aMemoryInfo[$i][31] = $objItem.Status ;状态
$aMemoryInfo[$i][32] = $objItem.Tag ;标签
$aMemoryInfo[$i][33] = $objItem.TotalWidth ;总宽度（位）
$aMemoryInfo[$i][34] = $objItem.TypeDetail ;类型详细信息
$aMemoryInfo[$i][35] = $objItem.Version ;版本信息
$i += 1
Next
$aMemoryInfo[0][0] = UBound($aMemoryInfo) - 1 ;内存条数量
If $aMemoryInfo[0][0] < 1 Then
Return SetError(1, 1, 0)
EndIf
Else
Return SetError(1, 2, 0)
EndIf
Return SetError(0, 0, $aMemoryInfo)
EndFunc ;_ComputerGetMemory
| 
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2021-10-25 18:59:34
发表于 2021-10-26 19:21:56