谁有VLISP 编的读取CPU的ID

XIAAOXIAO921

谁有VLISP 编的读取CPU的ID

highflybird

http://bbs.mjtd.com/thread-85042-1-2.html
参考上面的帖子。

1.   (setq scr (vlax-create-object "ScriptControl"))
   
2.   (vlax-put scr 'language "VBS")
   
3.   (setq str "Set mc=GetObject(\"Winmgmts:\")")
   
4.   (vlax-invoke scr 'EXECUTESTATEMENT str)
   
5.   (setq objWMI (vla-eval scr "mc"))
   
6.   (setq objCPU (vlax-invoke objWMI 'InstancesOF "Win32_Processor"))
   
7.   (vlax-for obj objCPU
   
8.     (alert (vlax-get obj 'ProcessorId))
   
9.   )
   
10.   (vlax-release-object objCPU)
    
11.   (vlax-release-object objWMI)
    
12.   (vlax-release-object scr)

  (setq scr (vlax-create-object "ScriptControl"))<br />   (vlax-put scr 'language "VBS")<br />   (setq str "Set mc=GetObject(\"Winmgmts:\")")<br />   (vlax-invoke scr 'EXECUTESTATEMENT str)<br />   (setq objWMI (vla-eval scr "mc"))<br />   (setq objCPU (vlax-invoke objWMI 'InstancesOF "Win32_Processor"))<br />   (vlax-for obj objCPU<br />     (alert (vlax-get obj 'ProcessorId))<br />   )<br />   (vlax-release-object objCPU)<br />   (vlax-release-object objWMI)<br />   (vlax-release-object scr)

下面的代码更有通用性。

1. 
   
2. (defun C:CPUId (/ WMI svr CPU s c)
   
3.   (vl-load-com)
   
4.   (setq        WMI (vlax-create-object "WbemScripting.SWbemLocator"))
   
5.   (setq        svr (VLAX-INVOKE WMI 'ConnectServer ))
   
6.   (setq CPU (vlax-invoke svr 'ExecQuery        "Select ProcessorId from Win32_Processor"))
   
7.   (vlax-for item CPU
   
8.     (setq c (vlax-get item 'ProcessorId))
   
9.     (setq s (cons c s))
   
10.   )
    
11.   (vlax-release-object CPU)
    
12.   (vlax-release-object svr)
    
13.   (vlax-release-object wmi)
    
14.   (car s)
    
15. )
    

<br /> (defun C:CPUId (/ WMI svr CPU s c)<br />   (vl-load-com)<br />   (setq        WMI (vlax-create-object "WbemScripting.SWbemLocator"))<br />   (setq        svr (VLAX-INVOKE WMI 'ConnectServer ))<br />   (setq CPU (vlax-invoke svr 'ExecQuery        "Select ProcessorId from Win32_Processor"))<br />   (vlax-for item CPU<br />     (setq c (vlax-get item 'ProcessorId))<br />     (setq s (cons c s))<br />   )<br />   (vlax-release-object CPU)<br />   (vlax-release-object svr)<br />   (vlax-release-object wmi)<br />   (car s)<br /> )<br />

Nico

可以用，不知道是不是所有电脑都行 ,过几天iD会不会改变,,测试中

s4ns4n

赞一个赞一个赞一个

zyhandw

高手啊，佩服得五体投地！仰望高飞鸟！！

xjf

it's useful

jfxia

很好, 确认可用

baitang36

目前的cpu没有唯一的id，同一批cpu的id是相同的

xiongkun

感谢分享！