''必须引用 Microsoft WMI Scripting v1.1 Library 
Private Sub Command1_Click() 

Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject 
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_Processor")
For Each cpu In cpuSet
MsgBox "CPU系列号:" & cpu.ProcessorId
Next 
End Sub 
通过引用Microsoft WMI Scripting v1.1 Library,利用VBScript编写了一个脚本,点击按钮即可循环遍历并显示Win32_Processor类中所有CPU的ProcessorId,即CPU序列号。
3965

被折叠的 条评论
为什么被折叠?



