本帖最后由 sh1536 于 2021-10-26 21:21 编辑 #AutoIt3Wrapper_UseX64=n
#include <Array.au3>
$Result = _ComputerGetMemory()
MsgBox(0, "", @error ? @error : "运行正常")
_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:\\localhost\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
应该是可操作系统有关,win7有些属性没有,没有窗口弹出来应该是有报错的,我在虚拟机里试了下,需要注释掉这些属性,如果还是没有窗口弹出来,可以看看控制台的错误提示,也可以把控制台的数据贴上来
|