Get your Machine Type via VBScript

I found myself a few weeks ago needing to find a way to get the type of machine for a program I am building, there’s a few way to do this but the easiest way I found to do it at the time was via VBS.  I’m unsure if anyone will find this useful, but I know I’ll likely come back to this at one point.

strName = "." 'Computer name, if local just use a period.

Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strName & "\root\cimv2")

For Each obj in objWMI.ExecQuery ("Select * from Win32_SystemEnclosure")
    For Each strChassisType in obj.ChassisTypes
        Wscript.Echo strChassisType
    Next
Next

The above, if saved in a notepad and saved as a .vbs script will come back with a number, the below table outlines what each number means.

Good luck!