[求助]：lisp读取系统信息的命令是什么？

formoon

比如如何读取电脑的主板地址
谢谢！

zhang8755

读取硬盘信息

2. 
   
3. defun vldos-phyhar        (/ ret serx lccon item lox objw)
   
4.   (vl-load-com)
   
5.   (setq serx '())
   
6.   (if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
   
7.     (progn
   
8.       (SETQ lccon (VLAX-INVOKE
   
9.                     OBJW       'ConnectServer             "."
   
10.                     "\\root\\cimv2"          ""             ""
    
11.                     ""               ""          128             nil
    
12.                    )
    
13.       )
    
14.       (setq lox        (vlax-invoke
    
15.                   lccon
    
16.                   'ExecQuery
    
17.                   "Select SerialNumber,Tag from Win32_PhysicalMedia"
    
18.                 )
    
19.       )
    
20.       (vlax-for        item lox
    
21.         (setq serx (cons (list (vlax-get item 'Tag)
    
22.                                (vlax-get item 'SerialNumber)
    
23.                          )
    
24.                          serx
    
25.                    )
    
26.         )
    
27.       )
    
28.       (vlax-release-object lox)
    
29.       (vlax-release-object lccon)
    
30.       (vlax-release-object objW)
    
31.     )
    
32.   )
    
33.   (reverse serx)
    
34. )
    
35. 
    
36. 
    
37. (Defun vldos-driveinfo (Drv Key / pos rtn)
    
38.   (if (/= (type key) 'STR)
    
39.     (setq rtn (vldos-alldriveinfo drv))
    
40.     (if        (setq pos (vl-position
    
41.                     (setq key (strcase key))
    
42.                     (list "TOTALSIZE"            "FREESPACE"
    
43.                           "DRIVETYPE"            "FILESYSTEM"
    
44.                           "SERIALNUMBER"    "SHARENAME"
    
45.                           "VOLUMENAME"
    
46.                          )
    
47.                   )
    
48.         )
    
49.       (setq rtn (nth pos (vldos-alldriveinfo drv)))
    
50.     )
    
51.   )
    
52.   rtn
    
53. )
    
54. 
    
55. 
    
56. (Defun vldos-alldriveinfo (Drv / DrvObj FilSys RetVal)
    
57.   (if (setq
    
58.         FilSys (vlax-get-or-create-object "Scripting.FileSystemObject")
    
59.       )
    
60.     (progn
    
61.       (setq RetVal
    
62.              (cond
    
63.                ((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0)
    
64.                ((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv))
    
65.                 (cond
    
66.                   ((= (vlax-get DrvObj "IsReady") 0) -1)
    
67.                   ((list
    
68.                      (vlax-variant-value
    
69.                        (vlax-get-property DrvObj "TotalSize")
    
70.                      )
    
71.                      (vlax-variant-value
    
72.                        (vlax-get-property DrvObj "FreeSpace")
    
73.                      )
    
74.                      (vlax-get-property DrvObj "DriveType")
    
75.                      (vlax-get-property DrvObj "FileSystem")
    
76.                      (vlax-get-property DrvObj "SerialNumber")
    
77.                      (vlax-get-property DrvObj "ShareName")
    
78.                      (vlax-get-property DrvObj "VolumeName")
    
79.                    )
    
80.                   )
    
81.                 )
    
82.                )
    
83.              )
    
84.       )
    
85.       (if (equal (type DrvObj) 'vla-object)
    
86.         (vlax-release-object DrvObj)
    
87.       )
    
88.       (vlax-release-object FilSys)
    
89.     )
    
90.   )
    
91.   RetVal
    
92. )

<br /> defun vldos-phyhar        (/ 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 />                     "\\root\\cimv2"          ""             ""<br />                     ""               ""          128             nil<br />                    )<br />       )<br />       (setq lox        (vlax-invoke<br />                   lccon<br />                   'ExecQuery<br />                   "Select SerialNumber,Tag from Win32_PhysicalMedia"<br />                 )<br />       )<br />       (vlax-for        item lox<br />         (setq serx (cons (list (vlax-get item 'Tag)<br />                                (vlax-get item 'SerialNumber)<br />                          )<br />                          serx<br />                    )<br />         )<br />       )<br />       (vlax-release-object lox)<br />       (vlax-release-object lccon)<br />       (vlax-release-object objW)<br />     )<br />   )<br />   (reverse serx)<br /> )<br /> <br /> <br /> (Defun vldos-driveinfo (Drv Key / pos rtn)<br />   (if (/= (type key) 'STR)<br />     (setq rtn (vldos-alldriveinfo drv))<br />     (if        (setq pos (vl-position<br />                     (setq key (strcase key))<br />                     (list "TOTALSIZE"            "FREESPACE"<br />                           "DRIVETYPE"            "FILESYSTEM"<br />                           "SERIALNUMBER"    "SHARENAME"<br />                           "VOLUMENAME"<br />                          )<br />                   )<br />         )<br />       (setq rtn (nth pos (vldos-alldriveinfo drv)))<br />     )<br />   )<br />   rtn<br /> )<br /> <br /> <br /> (Defun vldos-alldriveinfo (Drv / DrvObj FilSys RetVal)<br />   (if (setq<br />         FilSys (vlax-get-or-create-object "Scripting.FileSystemObject")<br />       )<br />     (progn<br />       (setq RetVal<br />              (cond<br />                ((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0)<br />                ((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv))<br />                 (cond<br />                   ((= (vlax-get DrvObj "IsReady") 0) -1)<br />                   ((list<br />                      (vlax-variant-value<br />                        (vlax-get-property DrvObj "TotalSize")<br />                      )<br />                      (vlax-variant-value<br />                        (vlax-get-property DrvObj "FreeSpace")<br />                      )<br />                      (vlax-get-property DrvObj "DriveType")<br />                      (vlax-get-property DrvObj "FileSystem")<br />                      (vlax-get-property DrvObj "SerialNumber")<br />                      (vlax-get-property DrvObj "ShareName")<br />                      (vlax-get-property DrvObj "VolumeName")<br />                    )<br />                   )<br />                 )<br />                )<br />              )<br />       )<br />       (if (equal (type DrvObj) 'vla-object)<br />         (vlax-release-object DrvObj)<br />       )<br />       (vlax-release-object FilSys)<br />     )<br />   )<br />   RetVal<br /> )

king99112

不会吧,可以读主般信息的?

黄河之水

斑竹果真历害

懒虫

(setq SerialNumber "")
    (if        (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
      (progn (SETQ lccon (VLAX-INVOKE OBJW 'ConnectServer))
             (setq lox (vlax-invoke lccon 'ExecQuery "Select SerialNumber from Win32_BaseBoard"))
             (vlax-for item lox
               (setq SerialNumber (strcat SerialNumber (vl-princ-to-string (vlax-get item 'SerialNumber)) "~~~"))
             )
             (vlax-release-object lox)
             (vlax-release-object lccon)
             (vlax-release-object objW)
      )
    )
可以读出主板信息，但受用户权限的限制，详情请查询WMI的有关资料。