Dim objWMI : Set objWMI = GetObject("winmgmts:") Dim colSettingsComp : Set colSettingsComp = objWMI.ExecQuery("Select * from Win32_ComputerSystem") Dim colSettingsBios : Set colSettingsBios = objWMI.ExecQuery("Select * from Win32_BIOS") Dim objComputer, strName, strModel, strSerial TAB = CHR(9) CRLF = CHR(13) + CHR(10) For Each objComputer in colSettingsComp strModel = Trim(strModel + " " + objComputer.Model) strName = Trim(strName + " " + objComputer.Name) Next For Each objComputer in colSettingsBios strSerial = Trim(strSerial + " " + objComputer.SerialNumber) Next wscript.echo "Name:" + TAB + strName + CRLF + "Model:" + TAB + strModel + CRLF + "Serial:" + TAB + strSerial