Accessing Serial Number and Class-Model Information

Below is an example of a VbScript code on how to obtain the Serial Number and Class-Model Information of the terminal.

On Error Resume Next
DIM returnValue
DIM version
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
Wscript.Echo "Class Model: " & objItem.Model
Wscript.Echo "Serial Number: " & objItem.Name
Next