XIAAOXIAO921 发表于 2011-2-28 19:08:21

谁有VLISP 编的读取CPU的ID

谁有VLISP 编的读取CPU的ID

highflybird 发表于 2011-2-28 19:33:18

本帖最后由 highflybird 于 2019-7-11 12:50 编辑

http://bbs.mjtd.com/thread-85042-1-2.html
参考上面的帖子。
(setq scr (vlax-create-object "ScriptControl"))
(vlax-put scr 'language "VBS")
(setq str "Set mc=GetObject(\"Winmgmts:\")")
(vlax-invoke scr 'EXECUTESTATEMENT str)
(setq objWMI (vla-eval scr "mc"))
(setq objCPU (vlax-invoke objWMI 'InstancesOF "Win32_Processor"))
(vlax-for obj objCPU
    (alert (vlax-get obj 'ProcessorId))
)
(vlax-release-object objCPU)
(vlax-release-object objWMI)
(vlax-release-object scr)

下面的代码更有通用性。

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


Nico 发表于 2012-7-21 11:29:11

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

s4ns4n 发表于 2012-7-27 11:53:55

赞一个赞一个赞一个

zyhandw 发表于 2012-7-31 16:03:44

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

xjf 发表于 2022-7-3 10:34:38

it's useful

jfxia 发表于 2022-11-27 12:25:39

很好, 确认可用

baitang36 发表于 2022-11-28 09:32:52

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

xiongkun 发表于 2022-12-4 18:52:35

感谢分享！
页: [1]
查看完整版本: 谁有VLISP 编的读取CPU的ID