コンピュータの種類を取得する: Win32_SystemEnclosure - WMI Sample (VBS)

Option Explicit

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr
Dim i

'ローカルコンピュータに接続する。
Set oLocator = Wscript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer
'クエリー条件を WQL にて指定する。
Set oClassSet = oService.ExecQuery("Select * From Win32_SystemEnclosure")

'コレクションを解析する。
For Each oClass In oClassSet

For i = Lbound(oClass.ChassisTypes) To Ubound(oClass.ChassisTypes)

Select Case oClass.ChassisTypes(i)
Case 1:
sMesStr = sMesStr & "Other" & vbCrLf
Case 2:
sMesStr = sMesStr & "Unknown" & vbCrLf
Case 3:
sMesStr = sMesStr & "Desktop" & vbCrLf
Case 4:
sMesStr = sMesStr & "Low Profile Desktop" & vbCrLf
Case 5:
sMesStr = sMesStr & "Pizza Box" & vbCrLf
Case 6:
sMesStr = sMesStr & "Mini Tower" & vbCrLf
Case 7:
sMesStr = sMesStr & "Tower" & vbCrLf
Case 8:
sMesStr = sMesStr & "Portable" & vbCrLf
Case 9:
sMesStr = sMesStr & "Laptop" & vbCrLf
Case 10:
sMesStr = sMesStr & "Notebook" & vbCrLf
Case 11:
sMesStr = sMesStr & "Hand Held" & vbCrLf
Case 12:
sMesStr = sMesStr & "Docking Station" & vbCrLf
Case 13:
sMesStr = sMesStr & "All in One" & vbCrLf
Case 14:
sMesStr = sMesStr & "Sub Notebook" & vbCrLf
Case 15:
sMesStr = sMesStr & "Space -Saving" & vbCrLf
Case 16:
sMesStr = sMesStr & "Lunch Box" & vbCrLf
Case 17:
sMesStr = sMesStr & "Main System Chassis" & vbCrLf
Case 18:
sMesStr = sMesStr & "Expansion Chassis" & vbCrLf
Case 19:
sMesStr = sMesStr & "SubChassis" & vbCrLf
Case 20:
sMesStr = sMesStr & "Bus Expansion Chassis" & vbCrLf
Case 21:
sMesStr = sMesStr & "Peripheral Chassis" & vbCrLf
Case 22:
sMesStr = sMesStr & "Storage Chassis" & vbCrLf
Case 23:
sMesStr = sMesStr & "Rack Mount Chassis" & vbCrLf
Case 24:
sMesStr = sMesStr & "Sealed-Case PC" & vbCrLf

End Select

Next

Next

MsgBox "コンピュータの種類は、" & vbCrLf & vbCrLf & sMesStr & vbCrLf & "です。"

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing