VBscript for getting Computer Model using WMI system class

' Computer System Model

' -------------------------------------------------------'

Option Explicit

Dim objWMIService, objComputer, colComputer

Dim strComputer

'strComputer = "."

strcomputer = InputBox("Enter the PC Name")

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colComputer = objWMIService.ExecQuery _

("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer

Wscript.Echo "System Name: " & objComputer.Name

Wscript.Echo "Model " & objComputer.Model

Next

WScript.Quit

' Enjoy