コンピューターフォーム（デスクトップ、ノートブック、またはオールインワン）をコマンドラインで確認するにはどうすればよいですか？

info.vbsとして保存し
、コマンドプロンプトからスクリプトの場所に移動してinfo.vbsと入力し、Enterキーを押します

 strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colChassis = objWMIService.ExecQuery _
        ("Select * from Win32_SystemEnclosure")
    For Each objChassis in colChassis
        For  Each strChassisType in objChassis.ChassisTypes
            Select Case strChassisType
                Case 1
                    Wscript.Echo "Other"
                Case 2
                    Wscript.Echo "Unknown"
                Case 3
                    Wscript.Echo "Desktop"
                Case 4
                    Wscript.Echo "Low Profile Desktop"
                Case 5
                    Wscript.Echo "Pizza Box"
                Case 6
                    Wscript.Echo "Mini Tower"
                Case 7
                    Wscript.Echo "Tower"
                Case 8
                    Wscript.Echo "Portable"
                Case 9
                    Wscript.Echo "Laptop"
                Case 10
                    Wscript.Echo "Notebook"
                Case 11
                    Wscript.Echo "Handheld"
                Case 12
                    Wscript.Echo "Docking Station"
                Case 13
                    Wscript.Echo "All-in-One"
                Case 14
                    Wscript.Echo "Sub-Notebook"
                Case 15
                    Wscript.Echo "Space Saving"
                Case 16
                    Wscript.Echo "Lunch Box"
                Case 17