Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_OperatingSystem",,48) 
For Each objItem in colItems 
    Wscript.Echo "BuildNumber: " & objItem.BuildNumber
    Wscript.Echo "OSArchitecture: " & objItem.OSArchitecture
    Wscript.Echo "OSType: " & objItem.OSType
    Wscript.Echo "Version: " & objItem.Version
Next

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Processor",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_Processor instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Architecture: " & objItem.Architecture
    Wscript.Echo "CurrentClockSpeed: " & objItem.CurrentClockSpeed
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "Family: " & objItem.Family
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "NumberOfCores: " & objItem.NumberOfCores
    Wscript.Echo "NumberOfLogicalProcessors: " & objItem.NumberOfLogicalProcessors
    Wscript.Echo "ProcessorId: " & objItem.ProcessorId
    Wscript.Echo "ProcessorType: " & objItem.ProcessorType
    Wscript.Echo "Revision: " & objItem.Revision
Next

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_VideoController",,48) 
For Each objItem in colItems 
    Wscript.Echo "AdapterRAM: " & objItem.AdapterRAM
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "VideoArchitecture: " & objItem.VideoArchitecture
    Wscript.Echo "VideoMemoryType: " & objItem.VideoMemoryType
    Wscript.Echo "VideoProcessor: " & objItem.VideoProcessor
Next

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_PhysicalMemory",,48) 
For Each objItem in colItems 
    Wscript.Echo "BankLabel: " & objItem.BankLabel
    Wscript.Echo "Capacity: " & objItem.Capacity
    Wscript.Echo "Speed: " & objItem.Speed
Next

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_DiskDrive",,48) 
For Each objItem in colItems 
    Wscript.Echo "DeviceID: " & objItem.DeviceID
    Wscript.Echo "Model: " & objItem.Model
    Wscript.Echo "SerialNumber: " & objItem.SerialNumber
    Wscript.Echo "Size: " & objItem.Size
Next