There are many different ways to get all this information.
But one universal way to get them all is to request a WMI .
WMI classes that interest you:
function WbemQuery(WbemServices: Variant; Query: string): Variant; var WbemObjectSet: Variant; begin Result := Null; WbemObjectSet := WbemServices.ExecQuery(Query); if not VarIsNull(WbemObjectSet) and (WbemObjectSet.Count > 0) then begin Result := WbemObjectSet.ItemIndex(0); end; end; procedure CollectInformation; var Query: string; WbemLocator, WbemServices: Variant; ComputerSystem, OperatingSystem, Processor, NetworkAdapters, NetworkAdapter: Variant; IPAddresses: array of string; I, I2: Integer; begin WbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); WbemServices := WbemLocator.ConnectServer('.', 'root\CIMV2'); Query := 'SELECT TotalPhysicalMemory, UserName FROM Win32_ComputerSystem'; ComputerSystem := WbemQuery(WbemServices, Query); if not VarIsNull(ComputerSystem) then begin Log(Format('TotalPhysicalMemory=%s', [ComputerSystem.TotalPhysicalMemory])); Log(Format('UserName=%s', [ComputerSystem.UserName])); end; Query := 'SELECT Caption FROM Win32_OperatingSystem'; OperatingSystem := WbemQuery(WbemServices, Query); if not VarIsNull(OperatingSystem) then begin Log(Format('OperatingSystem=%s', [OperatingSystem.Caption])); end; Query := 'SELECT Name FROM Win32_Processor'; Processor := WbemQuery(WbemServices, Query); if not VarIsNull(Processor) then begin Log(Format('Processor=%s', [Processor.Name])); end; Query := 'SELECT IPEnabled, IPAddress, MACAddress FROM Win32_NetworkAdapterConfiguration'; NetworkAdapters := WbemServices.ExecQuery(Query); if not VarIsNull(NetworkAdapters) then begin for I := 0 to NetworkAdapters.Count - 1 do begin NetworkAdapter := NetworkAdapters.ItemIndex(I); if (not VarIsNull(NetworkAdapter.MACAddress)) and NetworkAdapter.IPEnabled then begin Log(Format('Adapter %d MAC=%s', [I, NetworkAdapter.MACAddress])); if not VarIsNull(NetworkAdapter.IPAddress) then begin IPAddresses := NetworkAdapter.IPAddress; for I2 := 0 to GetArrayLength(IPAddresses) - 1 do begin Log(Format('Adapter %d IP %d=%s', [I, I2, IPAddresses[I2]])); end; end; end; end; end; end;
The code requires a Unicode version of Inno Setup (the only version of Inno Setup 6) for better Variant support .
The SWbemObjectSet.ItemIndex method used with Win32_NetworkAdapterConfiguration not available in older versions of Windows XP. See Iterating a SWbemObjectSet in Windows XP and Inno Setup .
This will give you information like:
TotalPhysicalMemory=12835962880 UserName=domain\martin OperatingSystem=Microsoft Windows 10 Home Processor=Intel(R) Core(TM) i7-3630QM CPU @ 2.40GHz Adapter 1 MAC=11:51:67:D0:10:21 Adapter 1 IP 0=192.168.78.2 Adapter 1 IP 1=ef08::8da9:601e:3f8a:da00 Adapter 2 MAC=80:06:E6:10:F7:B9 Adapter 2 IP 0=192.168.1.3
To see all the available information in the participating classes, run this on the command line:
wmic computersystem get * /format:value wmic os get * /format:value wmic cpu get * /format:value wmic nicconfig get * /format:value