Get Operating System Info Report (VBScript)

' ============================================================
' GetOperatingSystemReport.vbs
'
' Reports Operating System Info via WMI (Win32_OperatingSystem).
'
' Usage: cscript GetOperatingSystemReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT Caption, Version, OSArchitecture, LastBootUpTime, FreePhysicalMemory FROM Win32_OperatingSystem")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "Caption: " & objItem.Caption & vbCrLf
    strOutput = strOutput & "Version: " & objItem.Version & vbCrLf
    strOutput = strOutput & "OSArchitecture: " & objItem.OSArchitecture & vbCrLf
    strOutput = strOutput & "LastBootUpTime: " & objItem.LastBootUpTime & vbCrLf
    strOutput = strOutput & "FreePhysicalMemory: " & objItem.FreePhysicalMemory & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

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