Wie kann ich über die Befehlszeile das Computerformat (Desktop, Notebook oder All-in-One) überprüfen?

Question

Aus einem ganz bestimmten Grund muss ich den Formfaktor des Computers (Desktop, Notebook oder All-in-One) per Fernzugriff überprüfen, und zwar mithilfe eines Befehls über die Eingabeaufforderung, Powershell oder VBS (Windows 7/8-Systeme).

Gibt es eine Möglichkeit, so etwas zu tun?

Dank im Voraus.

Answer 1

Speichern Sie es als info.vbs.
Gehen Sie in der Eingabeaufforderung zum Skriptspeicherort, geben Sie info.vbs ein und drücken Sie die Eingabetaste.

 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