標題: [發問] 如何取得 CPU 序號? [打印本頁]

---

作者: Scott090    時間: 2013-4-20 12:02     標題: 如何取得 CPU 序號?

聽說 CPU 序號已不再開放，不知是真假
有請大大吉大師們協助解惑，感恩

---

作者: diabo    時間: 2013-4-21 12:35

回復 1# Scott090

1. Sub 抓CPU序號()
   
2. 
   
3. Dim CPUSet
   
4. 
   
5. ' 利用WMI(Windows管理規範)取得CPU資訊
   
6. Set CPUSet = GetObject("winmgmts:").ExecQuery _
   
7.    ("Select * from Win32_Processor")
   
8. 
   
9. For Each CPU In CPUSet
   
10.     MsgBox "Caption: " & CPU.Caption & vbCrLf & "CPU ID: " & CPU.ProcessorId
    
11. Next
    
12. 
    
13. End Sub

複製代碼

---

作者: Scott090    時間: 2013-4-22 08:10

回復 2# diabo

非常感恩提供協助

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)