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

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

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

高中生 Rank: 3 Rank: 3

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 264
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-10-29

2024年全勤獎章 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

帖子: 531
主題: 58
精華: 0
積分: 611
點名: 264
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-10-29

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

3^#

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

回復 2# diabo

非常感恩提供協助

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

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