怎样用ＶＬＩＳＰ取得计算机的主板和ＣＰＵ序列号？？

wangph

我学着做了一下：

(defun ProcessorID (/ WMIobj serv lox serx sn)
  (if (setq WMIobj (vlax-create-object "wbemScripting.SwbemLocator"))
    (progn (setq serv (vlax-invoke
   WMIobj    'ConnectServer  "."
   "\\root\\cimv2"       ""  ""
   ""    ""       128  nil
         )
    )
    (setq lox (vlax-invoke
         serv
         'ExecQuery
         "Select * From Win32_Processor"
       )
    )
    (vlax-for item lox
      (setq sn (vlax-get
     item
     'ProcessorId
   )
      )
    )
    (mapcar 'vlax-release-object (list lox serv WMIobj))
    )
  )
  sn
)

结果好象不是所求的，但也不知道是什么号，并且与有些机子还是重复的。

xcajcj

;; cpuid=获得首枚CPU的序列号。by lxx.2007
;; 函数用法→(cpuid) -> "078BFBFF00000F7A"
(defun cpuid (/ str)
   (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")
)