检测电脑型号，AU3源码

*yinbinly* *发表于 2011-05-20 20:11:17* · 发表于 2011-05-20 20:11:17

本帖最后由 yinbinly 于 2011-5-20 20:12 编辑

#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=工具.ico
#AutoIt3Wrapper_outfile=电脑品牌检测.exe
#AutoIt3Wrapper_Res_Comment=制作：yinbinly
#AutoIt3Wrapper_Res_Description=电脑主板品牌检测
#AutoIt3Wrapper_Res_LegalCopyright=版权所有 (C) 2011
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region AutoIt3Wrapper 预编译参数(常用参数)
#EndRegion AutoIt3Wrapper 预编译参数设置完成
;不显示托盘图标
#NoTrayIcon
;防止程序重复运行
$g_szVersion = "test"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
Global $info
$strComputer = "."
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\" & $strComputer & "\root\cimv2")
$xh = ''
$colChassis = $objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
For $objChassis In $colChassis
For $objItem In $objChassis.ChassisTypes
Switch $objItem
Case 1
$xh = "Other"
Case 2
$xh = "Unknown"
Case 3
$xh = "台式机";"Desktop"
Case 4
$xh = "Low Profile Desktop"
Case 5
$xh = "Pizza Box"
Case 6
$xh = "Mini Tower"
Case 7
$xh = "Tower"
Case 8
$xh = "Portable"
Case 9
$xh = "Laptop"
Case 10
$xh = "笔记本";"Notebook"
Case 11
$xh = "Handheld"
Case 12
$xh = "Docking Station"
Case 13
$xh = "All-in-One"
Case 14
$xh = "Sub-Notebook"
Case 15
$xh = "Space Saving"
Case 16
$xh = "Lunch Box"
Case 17
$xh = "Main System Chassis"
Case 18
$xh = "Expansion Chassis"
Case 19
$xh = "Sub-Chassis"
Case 20
$xh = "Bus Expansion Chassis"
Case 21
$xh = "Peripheral Chassis"
Case 22
$xh = "Storage Chassis"
Case 23
$xh = "Rack Mount Chassis"
Case 24
$xh = "Sealed-Case PC"
Case Else
$xh = "Unknown"
EndSwitch
; MsgBox(0, 0, "Chassis Type: " & $xh)
Next
Next
$info&="计算机类型："&$xh&@CRLF
$mb=''
$colBoard = $objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")
For $object In $colBoard
$mb = $object.Product
Next
$info&="主板型号:"&$mb&@CRLF
$computerModel = $objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct")
For $objItem in $computerModel
$computerModel2 = $objItem.vendor & $objItem.name & "(" & $objItem.IdentifyingNumber & ")"
Next
$info&="电脑型号:"&$computerModel2&@CRLF
$cpu2=''
$cpu = $objWMIService.ExecQuery ("Select * from Win32_Processor")
For $objItem in $cpu
$cpu2= $cpu2 & $objItem.Name & " "
Next
$info&="处理器：" & $cpu2;
MsgBox(0,'yinbinly提示：',$info)

复制代码

检测电脑的类型，主板型号，电脑型号（品牌机，或笔记本）CPU型号本人的电脑

*trhy1234567* *发表于 2016-10-28 19:31:36* · 发表于 2016-10-28 19:31:36

支持，谢谢！

*1834782466* *发表于 2016-02-20 04:19:46* · 发表于 2016-02-20 04:19:46

本帖最后由 1834782466 于 2016/2/20 04:21 编辑

谢谢分享学习了。

*fzz888* *发表于 2011-06-03 01:06:42* · 发表于 2011-06-03 01:06:42

挺好玩的一个程序

楼主| *yinbinly* *发表于 2011-05-23 11:24:27* · 发表于 2011-05-23 11:24:27

品牌机还可以读出出厂编号来，厂家是比较精明的

*ahzsm* *发表于 2011-05-22 19:17:15* · 发表于 2011-05-22 19:17:15

检测试试看看撒，谢谢分享

*永远的菜鸟* *发表于 2011-05-21 07:19:02* · 发表于 2011-05-21 07:19:02

这个可以试下。

弡 *发表于 2011-05-20 20:14:25* · 发表于 2011-05-20 20:14:25

呵呵，有意思。

[其它] 检测电脑型号，AU3源码

评分