[讨论]通过LISP访问主板ID号

黄河

请教怎样通过LISP访问主板ID号。？？？？？？？？？？？？？？？？

以下的程序能读取硬盘的物理号：(defun c:vr () //ret serx lccon item lox objw
(vl-load-com)
(setq serx '())
(if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
(progn
(SETQ lccon (VLAX-INVOKE
OBJW 'ConnectServer "."
"\\root\\cimv2" "" ""
"" "" 128 nil))
(setq lox (vlax-invoke
lccon
'ExecQuery
"Select SerialNumber,Tag from Win32_PhysicalMedia"))
(vlax-for item lox
(setq serx (cons (list (vlax-get item 'Tag)
(vlax-get item 'SerialNumber))
serx)))
(vlax-release-object lox)
(vlax-release-object lccon)
(vlax-release-object objW)))
(reverse serx)) 

黄河

wangph朋友，二楼的这个具体怎样做，能否把具体代码公布一下，为谢了！！

pengfei2010

谢谢分享，学习一下

wltools

Win32_PhysicalMedia ---> Win32_BaseBoard

SerialNumber

Data type: string
Access type: Read-only

Manufacturer-allocated number used to identify the physical element.

黄河

2楼上的大哥 ，我的LSP知识少，看不懂呀？

具体怎样做呀？

wangph

2楼的我试过了，很成功，请问如何访问CPU的ID号呢？

hustrys

把一楼

   "Select SerialNumber,Tag from Win32_PhysicalMedia"))

改为；

"Select SerialNumber,Tag from Win32_BaseBoard"))

就行了

LONGXIN

好像不是所有主板和硬盘用这种方法都能得到序列号

黄河

hustrys说得有理，我这个就不行，命令行这样显示的 ：

命令: vr (("Base Board" " "))

不过可读取硬盘的物理号。

黄河

我公司的电脑不能用这方法读硬盘的物理号，不知有否十全十美的办法

mx186

LISP访问主板ID号有什么用途呀

vla-add3dpline 怎么用呀 5555555555

谢谢