按键精灵得到CPU序列号

得到CPU序列号

运行环境:分辨率:1440×900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730

strout=""  
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")  
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")  
str=""  
str=str & vbcrlf & "For Each objItem in colItems"  
str=str & vbcrlf & " strOut = strOut & objItem.ProcessorId & vbcrlf"  
str=str & vbcrlf & "Exit For"  
str=str & vbcrlf & "Next"  
Execute(str)  
MessageBox "CPU序列号:"&strOut

按键精灵得到CPU序列号》有0个想法

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注