返回列表 上一主題 發帖

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

Scott090

帖子
519 
主題
54 
精華
0 
積分
595 
點名
250  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-4-20 12:02 | 只看該作者

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

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

Scott090

帖子
519 
主題
54 
精華
0 
積分
595 
點名
250  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
3#
發表於 2013-4-22 08:10 | 只看該作者
回復 2# diabo

非常感恩提供協助

TOP

diabo

帖子
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
  1. Sub 抓CPU序號()

  3. Dim CPUSet

  5. ' 利用WMI(Windows管理規範)取得CPU資訊
  6. Set CPUSet = GetObject("winmgmts:").ExecQuery _
  7.    ("Select * from Win32_Processor")

  9. For Each CPU In CPUSet
  10.     MsgBox "Caption: " & CPU.Caption & vbCrLf & "CPU ID: " & CPU.ProcessorId
  11. Next

  13. End Sub
複製代碼
diabo

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題