System specs?

[Khryus]

How can I get the current systems specs?

Precisely:

• CPU & CPU Speed (ex Intel Core 2 Quad Q6600 @ 2.4GHz)
• Physical RAM (ex 8GB, is it possible to get RAM speed too?)
• OS
• HDD Size and free space
• Graphic Card & RAM (ex AMD Radeon HD 7800 Series [would be better if the name was more specific, like MSI Radeon R7870 2GB RAM DDR5] )
• Audio Card
• DirectX Version

[water]

Search the forum for "computer info UDF". You will find what you need

Edited October 17, 2012 by water

[FireFox]

This one is good too :

[Khryus]

Thanks for the quick reply, the UDF will do better

[FireFox]

Thanks for the quick reply, the UDF will do better

There's no doubt about it.

[Khryus]

Am I doing anything wrong? The UDF says I have 4GB RAM, when I have 8.

It returns 4294967296 as capacity, which divided by 1024 for 3 times gives 4(GB). However, FormFactor returns 8. Which one do I have to consider?

Dim $Memory
_ComputerGetMemory($Memory)
For $i = 1 To $Memory[0][0] Step 1
MsgBox(0, "Test _ComputerGetMemory", "Name: " & $Memory[$i][0] & @CRLF & _
"BankLabel: " & $Memory[$i][1] & @CRLF & _
"Capacity: " & $Memory[$i][2] & @CRLF & _
"CreationClassName: " & $Memory[$i][3] & @CRLF & _
"Description: " & $Memory[$i][4] & @CRLF & _
"DataWidth: " & $Memory[$i][5] & @CRLF & _
"DeviceLocator: " & $Memory[$i][6] & @CRLF & _
"FormFactor: " & $Memory[$i][7] & @CRLF & _
"HotSwappable: " & $Memory[$i][8] & @CRLF & _
"InterleaveDataDepth: " & $Memory[$i][9] & @CRLF & _
"InterleavePosition: " & $Memory[$i][10] & @CRLF & _
"Manufacturer: " & $Memory[$i][11] & @CRLF & _
"MemoryType: " & $Memory[$i][12] & @CRLF & _
"Model: " & $Memory[$i][13] & @CRLF & _
"OtherIdentifyingInfo: " & $Memory[$i][14] & @CRLF & _
"PartNumber: " & $Memory[$i][15] & @CRLF & _
"PositionInRow: " & $Memory[$i][16] & @CRLF & _
"PoweredOn: " & $Memory[$i][17] & @CRLF & _
"Removable: " & $Memory[$i][18] & @CRLF & _
"Replaceable: " & $Memory[$i][19] & @CRLF & _
"SerialNumber: " & $Memory[$i][20] & @CRLF & _
"SKU: " & $Memory[$i][21] & @CRLF & _
"Speed: " & $Memory[$i][22] & @CRLF & _
"Status: " & $Memory[$i][23] & @CRLF & _
"Tag: " & $Memory[$i][24] & @CRLF & _
"TotalWidth: " & $Memory[$i][25] & @CRLF & _
"TypeDetail: " & $Memory[$i][26] & @CRLF & _
"Version: " & $Memory[$i][27])
Next

Edited October 17, 2012 by megablox

[Mechaflash]

Is your OS 32 or 64 bit?

[Khryus]

Windows 7 Ultimate 64 bit, forgot to mention that.

[BrewManNH]

Where is the function _ComputerGetMemory?

[Mechaflash]

4x2GB paired?

[Khryus]

It's an UDF, I placed it inside the Include folder. Yes, I add #include <filename.au3> to the top of the script.

expandcollapse popup

Func _ComputerGetMemory(ByRef $aMemoryInfo)
Local $colItems, $objWMIService, $objItem
Dim $aMemoryInfo[1][28], $i = 1

$objWMIService = ObjGet("winmgmts:" & $cI_Compname & "rootCIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) Then
For $objItem In $colItems
ReDim $aMemoryInfo[UBound($aMemoryInfo) + 1][28]
$aMemoryInfo[$i][0] = $objItem.Name
$aMemoryInfo[$i][1] = $objItem.BankLabel
$aMemoryInfo[$i][2] = $objItem.Capacity
$aMemoryInfo[$i][3] = $objItem.CreationClassName
$aMemoryInfo[$i][4] = $objItem.Description
$aMemoryInfo[$i][5] = $objItem.DataWidth
$aMemoryInfo[$i][6] = $objItem.DeviceLocator
$aMemoryInfo[$i][7] = $objItem.FormFactor
$aMemoryInfo[$i][8] = $objItem.HotSwappable
$aMemoryInfo[$i][9] = $objItem.InterleaveDataDepth
$aMemoryInfo[$i][10] = $objItem.InterleavePosition
$aMemoryInfo[$i][11] = $objItem.Manufacturer
$aMemoryInfo[$i][12] = $objItem.MemoryType
$aMemoryInfo[$i][13] = $objItem.Model
$aMemoryInfo[$i][14] = $objItem.OtherIdentifyingInfo
$aMemoryInfo[$i][15] = $objItem.PartNumber
$aMemoryInfo[$i][16] = $objItem.PositionInRow
$aMemoryInfo[$i][17] = $objItem.PoweredOn
$aMemoryInfo[$i][18] = $objItem.Removable
$aMemoryInfo[$i][19] = $objItem.Replaceable
$aMemoryInfo[$i][20] = $objItem.SerialNumber
$aMemoryInfo[$i][21] = $objItem.SKU
$aMemoryInfo[$i][22] = $objItem.Speed
$aMemoryInfo[$i][23] = $objItem.Status
$aMemoryInfo[$i][24] = $objItem.Tag
$aMemoryInfo[$i][25] = $objItem.TotalWidth
$aMemoryInfo[$i][26] = $objItem.TypeDetail
$aMemoryInfo[$i][27] = $objItem.Version
$i += 1
Next
$aMemoryInfo[0][0] = UBound($aMemoryInfo) - 1
If $aMemoryInfo[0][0] < 1 Then
SetError(1, 1, 0)
EndIf
Else
SetError(1, 2, 0)
EndIf
EndFunc ;_ComputerGetMemory

[Khryus]

4x2GB paired?

Oh lol. Let me check

[water]

Where is the function _ComputerGetMemory?

It's part of the written by JSThePatriot.

[BrewManNH]

4x2GB paired?

It's probably more likely 4GB * 2 because that says BANK0 reads as 4GB, which probably means it only read one bank of the total memory rather than the total installed.

[Khryus]

Yep. 4x2GB. But I don't see the number of banks in the message

Edited October 17, 2012 by megablox

[Khryus]

If that can help, both dxdiag and right click on computer > properties report 8GB RAM

Edited October 17, 2012 by megablox

[Mechaflash]

It's probably more likely 4GB * 2 because that says BANK0 reads as 4GB, which probably means it only read one bank of the total memory rather than the total installed.

I see. Makes sense.

[Mechaflash]

If that can help, both dxdiag and right click on pc > properties report 8GB RAM

Speaking of dxdiag, it can output to xml =D

dxdiag /x "%userprofile%desktopdxdiag.xml"

EDIT:

RunWait(@ComSpec & ' /c dxdiag /x "' & @DesktopDir & 'dxdiag.xml"', @SystemDir, @SW_HIDE)

Edited October 17, 2012 by Mechaflash

[Khryus]

Speaking of dxdiag, it can output to xml =D

dxdiag /x "%userprofile%desktopdxdiag.xml"

EDIT:

RunWait(@ComSpec & ' /c dxdiag /x "' & @DesktopDir & 'dxdiag.xml"', @SystemDir, @SW_HIDE)

Tried that, can't see any xml file on my desktop

[BrewManNH]

When I run that script with the correct UDF I get two message boxes, one showing BANK0's specs, and the other showing BANK2's specs, which when added together gives me the 4GB that my system has. Also running this under Win 7 x64.