Dim objWMI : Set objWMI = GetObject("winmgmts:")
Dim colSettingsComp : Set colSettings = objWMI.ExecQuery("Select * from Win32_ComputerSystem")
Dim colSettingsBios : Set colSettingsBios = objWMI.ExecQuery("Select * from Win32_BIOS")
Dim objComputer, strModel, strSerial
TAB = CHR(9)
CRLF = CHR(13) + CHR(10)

For Each objComputer in colSettings
  strModel = Trim(strModel + " " + objComputer.Model)
Next
For Each objComputer in colSettingsBios
  strSerial = Trim(strSerial + " " + objComputer.SerialNumber)
Next
wscript.echo "Model:" + TAB + strModel + CRLF + "Serial:" + TAB + strSerial