Set OSConfig= GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
 For Each System In OSConfig
   For each Prop in System.Properties_
     WScript.Echo Prop.Name & vbTab & Prop.Value
       on error resume next
   Next
  WScript.Echo vbCrLf
Next