[求助]：获得首枚CPU的序列号

animal212 · 发表于 2007-11-15 20:27:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;; cpuid=获得首枚CPU的序列号。by lxx.2007
;; (cpuid) -> "078BFBFF00000F7A"
(defun C:cpuid (/ str)
(load"xyp_lib.vlx")
(setq str
"Set objSWbemObject = GetObject(\"winmgmts:Win32_Processor.DeviceID='cpu0'\")
ret = objSWbemObject.ProcessorId
'msgbox \"首枚CPU序列号：\" & ret" )
(if (not *wsc)(setq *wsc (vlax-create-object "ScriptControl")))
(vlax-put *wsc 'language "vbs")
(vlax-invoke *wsc 'ExecuteStatement str)
(vlax-invoke *wsc 'eval "ret")
)

获取序列号后哪个变量是序列号啊？是ret吗？还是str?
感觉都不是啊。

雨箭风刀 · 发表于 2007-11-15 23:55:19

返回值就是
调用方式：　
(cpuid)
当然了，你要先加载这个程序

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：获得首枚CPU的序列号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子