Get Computer System Info Report (VBScript)

' ============================================================
' GetComputerSystemReport.vbs
'
' Reports Computer System Info via WMI (Win32_ComputerSystem).
'
' Usage: cscript GetComputerSystemReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT Name, Manufacturer, Model, TotalPhysicalMemory, NumberOfProcessors FROM Win32_ComputerSystem")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "Name: " & objItem.Name & vbCrLf
    strOutput = strOutput & "Manufacturer: " & objItem.Manufacturer & vbCrLf
    strOutput = strOutput & "Model: " & objItem.Model & vbCrLf
    strOutput = strOutput & "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory & vbCrLf
    strOutput = strOutput & "NumberOfProcessors: " & objItem.NumberOfProcessors & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Computer System Info found."
Else
    WScript.Echo strOutput
End If