麻辣家族討論版版 » Excel程式區 » 如何取得 CPU 序號?

返回列表下一主題上一主題發帖

[發問] 如何取得 CPU 序號?

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 83
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-4-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-4-20 12:02 | 只看該作者

[發問] 如何取得 CPU 序號?

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

樓主熱帖

收藏

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

2^#

發表於 2013-4-21 12:35 | 只看該作者

回復 1# Scott090

Sub 抓CPU序號()
Dim CPUSet
' 利用WMI(Windows管理規範)取得CPU資訊
Set CPUSet = GetObject("winmgmts:").ExecQuery _
("Select * from Win32_Processor")
For Each CPU In CPUSet
MsgBox "Caption: " & CPU.Caption & vbCrLf & "CPU ID: " & CPU.ProcessorId
Next
End Sub

複製代碼

diabo

高中生 Rank: 3 Rank: 3

帖子: 508
主題: 53
精華: 0
積分: 583
點名: 83
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-4-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2013-4-22 08:10 | 只看該作者

回復 2# diabo

非常感恩提供協助

靜思自在 : 知識要用心體會，才能變成自己的智慧。

返回列表下一主題上一主題