Set OSConfig= GetObject("winmgmts:").InstancesOf("Win32_BIOS")
 For Each System In OSConfig
   For each Prop in System.Properties_
      If (Prop.Name <> "BiosCharacteristics" AND Not IsNull(Prop.Value) ) Then
        WScript.Echo Prop.Name & vbTab & Prop.Value
       End If
      on error resume next
   Next
  WScript.Echo vbCrLf
Next