PCがデスクトップかノートか判定してくれるバッチ

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 
                Wscript.Echo "Main System Chassis" 
            Case 18 
                Wscript.Echo "Expansion Chassis" 
            Case 19 
                Wscript.Echo "Sub-Chassis" 
            Case 20 
                Wscript.Echo "Bus Expansion Chassis" 
            Case 21 
                Wscript.Echo "Peripheral Chassis" 
            Case 22 
                Wscript.Echo "Storage Chassis" 
            Case 23 
                Wscript.Echo "Rack Mount Chassis" 
            Case 24 
                Wscript.Echo "Sealed-Case PC" 
            Case Else 
                Wscript.Echo "Unknown" 
            End Select 
    Next 
Next 

このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証が無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。