获取CPU序列号

xianaihua

研究了一些朋友的程序，写了一个获得CPU序列号的程序，在几个机子上测试还行。
[UseMoney=5][/UseMoney]

2. ;;获取CPU序列号.
3. (defun get_cpu_id (/ Vlist VObj lcom lExecQuery item)
4.   (vl-load-com)
5.   (setq Vlist '())
6.   (if (setq VObj (vlax-create-object "wbemscripting.swbemlocator"))
7.     (progn
8.       (SETQ lcom (VLAX-INVOKE
9.      VObj       'ConnectServer     "."
10.      "\\root\\cimv2"  ""     ""
11.      ""       ""  128     nil
12.     ) ;_ 结束VLAX-INVOKE
13.       ) ;_ 结束SETQ
14.       (setq lExecQuery
15.       (vlax-invoke
16.         lcom
17.         'ExecQuery
18.         ;;"Select * From Win32_BIOS"
19.         "Select * from Win32_Processor"
20.       ) ;_ 结束vlax-invoke
21.       ) ;_ 结束setq
22.       (vlax-for item lExecQuery
23. (setq Vlist (vlax-get item 'ProcessorId) ;_ 结束cons
24. ) ;_ 结束setq
25.       ) ;_ 结束vlax-for
26.       (vlax-release-object lExecQuery)
27.       (vlax-release-object lcom)
28.       (vlax-release-object Vobj)
29.     )
30.   )
31.   Vlist
32. )
33. (setq sn (get_cpu_id))

;;获取CPU序列号. (defun get_cpu_id (/ Vlist VObj lcom lExecQuery item)   (vl-load-com)   (setq Vlist '())   (if (setq VObj (vlax-create-object "wbemscripting.swbemlocator"))     (progn       (SETQ lcom (VLAX-INVOKE      VObj       'ConnectServer     "."      "\\root\\cimv2"  ""     ""      ""       ""  128     nil     ) ;_ 结束VLAX-INVOKE       ) ;_ 结束SETQ       (setq lExecQuery       (vlax-invoke         lcom         'ExecQuery         ;;"Select * From Win32_BIOS"         "Select * from Win32_Processor"       ) ;_ 结束vlax-invoke       ) ;_ 结束setq       (vlax-for item lExecQuery (setq Vlist (vlax-get item 'ProcessorId) ;_ 结束cons ) ;_ 结束setq       ) ;_ 结束vlax-for       (vlax-release-object lExecQuery)       (vlax-release-object lcom)       (vlax-release-object Vobj)     )   )   Vlist ) (setq sn (get_cpu_id))

高级用户

读cpu的论坛里早就有了，就是没有读硬盘物理序列号的，不知楼主能搞出来不

(defun CpuID (/ *wsc str)
  (setq str
    "Set objSWbemObject = GetObject(\"winmgmts:Win32_Processor.DeviceID='cpu0'\")
    ret = objSWbemObject.ProcessorId"
  )
  (setq *wsc (vlax-create-object "ScriptControl"))
  (vlax-put *wsc 'language "vbs")
  (vlax-invoke *wsc 'ExecuteStatement str)
  (vlax-invoke *wsc 'eval "ret")
)

xianaihua

楼上朋友提供的好像是VBS获取序列号的方法，也不错

wangph

楼上的方法都没法读取CPU的物理序列号，不知哪有办法？

龙龙仔

高级用户发表于2009-11-7 20:41:00读cpu的论坛里早就有了，就是没有读硬盘物理序列号的，不知楼主能搞出来不

;;n年前就發過
;;但它與(dos_serialno [drive])的值不同==>16進制
;; By LUCAS(龍龍仔)
;; FIND_SERIALNUMBER
;; Returns of Drive SerialNumber
;; Arguments [Typ]:
;; Drive = "C:" [STR]
;; Notes: Requires ScrRun.dll.
;; USAGE: (FIND_SERIALNUMBER "D:")

(defun FIND_SERIALNUMBER (DRIVE / FILSYS VAL)
  (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
  (setq VAL (vlax-invoke FILSYS "GetDrive" DRIVE))
  (setq VAL (vl-catch-all-apply
       'vlax-get
       (list VAL "SerialNumber")
     )
  )
  (vlax-release-object FILSYS)
  (if (vl-catch-all-error-p VAL)
    (setq VAL NIL)
    VAL
  )
)

tyxdd

第一个帖子程序有错:

_1$
; 错误: SWbemLocator: 无效参数

windows 2000 + acad2006

xianaihua

龙仔的程序不是获得硬盘物理序列号，而获得的是格式化后自动生成的序列号，经测试好像也不对

xianaihua

tyxdd发表于2009-11-9 12:54:00第一个帖子程序有错:_1$ ; 错误: SWbemLocator: 无效参数windows 2000 + acad2006

程序在XP下，多个机子上测试没问题，在2000下还没测试

xianaihua

获取硬盘物理序列号在论坛上有：http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=54

高级用户

xianaihua发表于2009-11-9 13:09:00获取硬盘物理序列号在论坛上有：http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=54

我用楼上的程序获得的数据是((\\.\PHYSICALDRIVE0 nil) (\\.\PHYSICALDRIVE1 nil) (\\.\PHYSICALDRIVE2
nil) (\\.\PHYSICALDRIVE3 nil) (\\.\PHYSICALDRIVE4 nil))，并不是真正序列号

我用优化大师软件看的序列号是4MT10LL5