百度明明有你却不愿动手搜
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_SystemEnclosure")
For Each objChassis in objWMIService
For Each strChassisType in objChassis.ChassisTypes
Select Case strChassisType
Case 4
Wscript.Echo "台式机"
Case 10
Wscript.Echo "笔记本"
End Select
Next
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024