#include <Array.au3>
Global $bDebug = True, $iTimer = TimerInit()
Global $oWMI, $oItems, $oItem, $aInfo[25][2], $aMethods, $sSelect, _
$aOS[14][8] = _
[ _
[13], _
['OS Name', '.Caption', '', '', '', '', 0], _
['Version', '.Version', '.CSDVersion', '"Build " & .BuildNumber', '', ' ', 1, 1], _
['Other OS Description', '.Description', '', '', '', '', 2], _
['OS Manufacturer', '.Manufacturer', '', '', '', '', 3], _
['System Name', '.CSName', '', '', '', '', 4], _
['Windows Directory', '.WindowsDirectory', '', '', '', '', 11], _
['System Directory', '.SystemDirectory', '', '', '', '', 12], _
['Boot Device', '.BootDevice', '', '', '', '', 13], _
['Locale', 'RegRead("HKCU\Control Panel\International", "sCountry")', '', '', '', '', 14], _
['Hardware Abstraction Layer', '"Version = """ & _Get_Hal_Version() & """"', '', '', '', '', 15], _
['Available Physical Memory', '_StringGetBytesDisplaySize(.FreePhysicalMemory, 1)', '', '', '', '', 20], _
['Total Virtual Memory', '_StringGetBytesDisplaySize(.TotalVirtualMemorySize, 1)', '', '', '', '', 21], _
['Available Virtual Memory', '_StringGetBytesDisplaySize(.FreeVirtualMemory, 1)', '', '', '', '', 22] _
], _
$aCS[6][8] = _
[ _
[5], _
['System Manufacturer', '.Manufacturer', '', '', '', '', 5], _
['System Model', '.Model', '', '', '', '', 6], _
['System Type', '.SystemType', '', '', '', '', 7], _
['User Name', '.UserName', '', '', '', '', 16], _
['Total Physical Memory', '_StringGetBytesDisplaySize(.TotalPhysicalMemory, 0)', '', '', '', '', 19] _
], _
$aP[2][8] = _
[ _
[1], _
['Processor', 'StringStripWS(.Name, 4)', '.MaxClockSpeed & " Mhz"', '.NumberOfCores & " Core(s)"', '.NumberOfLogicalProcessors & " Logical Processor(s)"', ', ', 8, 2] _
], _
$aB[3][8] = _
[ _
[2], _
['BIOS Version', '.Manufacturer', '.SMBIOSBIOSVersion', 'StringRegExpReplace(.ReleaseDate, "(\d{4})(\d{2})(\d{2}).*", "\3/\2/\1")', '', ', ', 9, 2], _
['SMBIOS Version', '.SMBIOSMajorVersion', '.SMBIOSMinorVersion', '', '', '.', 10, 1] _
], _
$aTZ[2][8] = _
[ _
[1], _
['Time Zone', '.StandardName', '', '', '', '', 17] _
], _
$aPFU[3][8] = _
[ _
[2], _
['Page File Space', '_StringGetBytesDisplaySize(.AllocatedBaseSize, 2)', '', '', '', '', 23], _
['Page File', '.Name', '', '', '', '', 24] _
], _
$aPM[2][8] = _
[ _
[1], _
['Installed Physical Memory (RAM)', '_StringGetBytesDisplaySize(.Capacity, 0)', '', '', '', ' + ', 18, 3] _
], _
$aFrom[8][3] = _
[ _
[7], _
['Win32_OperatingSystem', $aOS, _
'Caption,Version,CSDVersion,BuildNumber,Description,Manufacturer,CSName,WindowsDirectory,SystemDirectory,BootDevice,FreePhysicalMemory,TotalVirtualMemorySize,FreeVirtualMemory'], _
['Win32_ComputerSystem', $aCS, 'Manufacturer,Model,SystemType,UserName,TotalPhysicalMemory'], _
['Win32_Processor', $aP, 'Name,MaxClockSpeed,NumberOfCores,NumberOfLogicalProcessors'], _
['Win32_BIOS', $aB, 'Manufacturer,SMBIOSBIOSVersion,ReleaseDate,SMBIOSMajorVersion,SMBIOSMinorVersion'], _
['Win32_TimeZone', $aTZ, 'StandardName'],['Win32_PageFileUsage', $aPFU, 'AllocatedBaseSize,Name'], _
['Win32_PhysicalMemory', $aPM, 'Capacity'] _
]
;~ $oWMI = ObjGet('winmgmts:\\' & @ComputerName & '\root\CIMV2')
$oWMI = ObjGet('winmgmts:\\.\root\CIMV2')
If @error Then Exit 1
For $w = 1 To $aFrom[0][0]
$sWin32_Table = $aFrom[$w][0]
$aMethods = $aFrom[$w][1]
$sSelect = $aFrom[$w][2]
;~ $sSelect = '*'
$oItems = $oWMI.ExecQuery('SELECT ' & $sSelect & ' FROM ' & $sWin32_Table, 'WQL', 0x30)
If Not IsObj($oItems) Then Exit 2
_Debug('Win32 Table: ' & $sWin32_Table & @LF)
$iItems_Count = 0
$iItems_Total = 0
For $oItem In $oItems
$iItems_Total += 1
Next
$oItems = $oWMI.ExecQuery('SELECT ' & $sSelect & ' FROM ' & $sWin32_Table, 'WQL', 0x30)
For $oItem In $oItems
$iItems_Count += 1
For $i = 1 To $aMethods[0][0]
$sAdd_Chars = $aMethods[$i][5]
$iArr_Count = $aMethods[$i][6]
$iChars_Trim = $aMethods[$i][7]
_Debug(@TAB & 'Title: ' & $aMethods[$i][0] & @LF)
$aInfo[$iArr_Count][0] = $aMethods[$i][0]
For $j = 1 To 4
If Not $aMethods[$i][$j] Then
ExitLoop
EndIf
_Debug(@TAB & 'Method: ' & $aMethods[$i][$j] & @LF)
$sData = Execute(StringRegExpReplace($aMethods[$i][$j], '(\.\w+)', '\$oItem\1'))
If $sData = '' Then
$sData = 'Not Available'
EndIf
_Debug(@TAB & 'Data: ' & $sData & $sAdd_Chars & @LF & @LF)
$aInfo[$iArr_Count][1] &= $sData & $sAdd_Chars
Next
If $iChars_Trim And $iItems_Count = $iItems_Total Then
$aInfo[$iArr_Count][1] = StringTrimRight($aInfo[$iArr_Count][1], $iChars_Trim)
EndIf
Next
Next
Next
ConsoleWrite(TimerDiff($iTimer) & @LF)
_ArrayDisplay($aInfo)
Func _Debug($sData)
If $bDebug Then
ConsoleWrite($sData)
EndIf
EndFunc ;==>_Debug
Func _StringGetBytesDisplaySize($iInputSize, $iInputUnit = 0, $iRound = 2, $iInputBits = False, $iOutputBits = False, $iOutputUnit = -4)
Local $aUnitNames[9] = ['', 'K', 'M', 'G', 'T', 'P', 'E', 'Z', 'Y']
Local $iBytes = $iInputSize * 1024 ^ $iInputUnit
Local $sB = 'B'
If $iInputBits Then $iBytes /= 8
If $iOutputBits Then
$iBytes *= 8
$sB = 'b'
EndIf
If $iOutputUnit < 0 Then
Local $iOutputMax = Abs($iOutputUnit)
$iOutputUnit = Int(Log($iBytes) / Log(1024))
If $iOutputUnit > $iOutputMax Then $iOutputUnit = $iOutputMax
EndIf
If $aUnitNames[$iOutputUnit] = '' Then $sB = 'Bytes'
Return String(Round($iBytes / 1024 ^ $iOutputUnit, $iRound)) & ' ' & $aUnitNames[$iOutputUnit] & $sB
EndFunc ;==>_StringGetBytesDisplaySize
Func _Get_Hal_Version()
Local $h_Search, $s_File, $s_Version = 'Not available'
$h_Search = FileFindFirstFile(@SystemDir & '\hal*.dll')
If $h_Search = -1 Then Return $s_Version
While 1
$s_File = FileFindNextFile($h_Search)
If @error Then ExitLoop
If @OSVersion = 'WIN_XP' Then
$s_Version = FileGetVersion(@SystemDir & '\' & $s_File, 'FileVersion')
Else
$s_Version = FileGetVersion(@SystemDir & '\' & $s_File)
EndIf
If Not @error Then ExitLoop
WEnd
FileClose($h_Search)
Return $s_Version
EndFunc ;==>_Get_Hal_Version
