[讨论]通过LISP访问主板ID号
<p>请教怎样通过LISP访问主板ID号。？？？？？？？？？？？？？？？？</p><p>以下的程序能读取硬盘的物理号：(defun c:vr () //ret serx lccon item lox objw<br/>(vl-load-com)<br/>(setq serx '())<br/>(if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))<br/>(progn<br/>(SETQ lccon (VLAX-INVOKE<br/>OBJW 'ConnectServer "."<br/>"<a href="file://\\root\\cimv2">\\root\\cimv2</a>" "" ""<br/>"" "" 128 nil))<br/>(setq lox (vlax-invoke<br/>lccon<br/>'ExecQuery<br/>"Select SerialNumber,Tag from Win32_PhysicalMedia"))<br/>(vlax-for item lox<br/>(setq serx (cons (list (vlax-get item 'Tag)<br/>(vlax-get item 'SerialNumber))<br/>serx)))<br/>(vlax-release-object lox)<br/>(vlax-release-object lccon)<br/>(vlax-release-object objW)))<br/>(reverse serx)) </p> <strong><font face="Verdana" color="#61b713">wangph朋友，二楼的这个具体怎样做，能否把具体代码公布一下，为谢了！！</font></strong> 谢谢分享，学习一下 <p>Win32_PhysicalMedia ---> Win32_BaseBoard</p><dt><b>SerialNumber</b></dt><p>Data type: <b>string</b><br/>Access type: Read-only </p><p></p><p>Manufacturer-allocated number used to identify the physical element. </p><dd><p></p></dd> <p>2楼上的大哥 ，我的LSP知识少，看不懂呀？</p><p>具体怎样做呀？</p> 2楼的我试过了，很成功，请问如何访问CPU的ID号呢？ <p>把一楼</p><p> "Select SerialNumber,Tag from Win32_PhysicalMedia"))</p><p>改为；</p><p>"Select SerialNumber,Tag from Win32_BaseBoard"))<br/><br/>就行了</p> 好像不是所有主板和硬盘用这种方法都能得到序列号 <p><strong><font face="Verdana" color="#61b713">hustrys说得有理，我这个就不行，命令行这样显示的 ： </font></strong></p><p><strong><font face="Verdana" color="#61b713">命令: vr (("Base Board" " "))</font></strong></p><p><font face="Verdana" color="#61b713"><strong>不过可</strong><font color="#000000">读取硬盘的物理号。</font></font></p> 我公司的电脑不能用这方法读<font face="Verdana">硬盘的物理号，不知有否十全十美的办法</font> <p>LISP访问主板ID号有什么用途呀 </p><p>vla-add3dpline 怎么用呀 5555555555</p><p>谢谢</p>
页:
[1]
2