用法
评论
建议
取 消
确 定
(defun hdinfo:get-cpuid (/ vlist vobj lcom lexecquery item) "获取CPU ID,不一定有用。" (vl-load-com) (setq vlist (quote nil)) (if (setq vobj (vlax-create-object "wbemscripting.swbemlocator")) (progn (setq lcom (vlax-invoke vobj (quote connectserver) "." "\\root\\cimv2" "" "" "" "" 128 nil)) (setq lexecquery (vlax-invoke lcom (quote execquery) "Select * from Win32_Processor")) (vlax-for item lexecquery (setq vlist (vlax-get item (quote processorid)))) (vlax-release-object lexecquery) (vlax-release-object lcom) (vlax-release-object vobj))) vlist)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新