（XD::SYSTEM:WMI-Query）系统WMI通用查询

newer

关于WMI介绍见：http://bbs.xdcad.net/thread-709842-1-1.html

1. 
   
2. 部分信息:
   
3. 的值可获得其他信息
   
4. Win32_ComputerSystem                  && 计算机系统信息
   
5. Win32_Process                         && 进程信息
   
6. Win32_Processor                       && CPU信息 ( ProcessorId 项为序列号)
   
7. Win32_DiskDrive                       && 磁盘信息 ( PNPDeviceID 项中\之后为序列号)
   
8. Win32_LogicalDisk                     && 分区(盘符)信息
   
9. Win32_NetworkAdapterConfiguration     && 网卡信息 ( IPAddress 项为IP地址, MACAddress 项为MAC地址)
   
10. Win32_BaseBoard                       && 主板信息 ( Manufacturer 项为主板生产商, Product 项为主板名称)
    
11. Win32_PhysicalMemory                  && 内存信息 ( Capacity 项为内存容量[字节])
    
12. Win32_VideoController                 && 显示卡信息
    
13. Win32_Share                           && 共享信息
    
14. Win32_Keyboard                        && 键盘信息
    
15. Win32_PointingDevice                  && 鼠标和触摸版信息
    
16. 更多请参考 MSDN
    

复制代码

[hide]

1. (defun XD::SYSTEM:WMI-Query (table Items Conditions / i qry query_string str svr val x)
   
2.   (if (and
   
3.         (or
   
4.           **XD::WMI**
   
5.           (xd::vlaobject-p **XD::WMI**)
   
6.           (setq **XD::WMI** (vlax-create-object "WbemScripting.SWbemLocator"))
   
7.         )
   
8.         (setq svr (vlax-invoke **XD::WMI** 'ConnectServer))
   
9.         (setq Conditions (if (XD::NotEmptystring-p Conditions)
   
10.                            (strcat " where " Conditions)
    
11.                            ""
    
12.                          )
    
13.         )
    
14.         (setq query_string (strcat "SELECT " Items " FROM " table Conditions))
    
15.         (setq qry (vlax-invoke svr 'ExecQuery query_string))
    
16.       )
    
17.     (progn
    
18.       (setq str nil)
    
19.       (vlax-for i qry
    
20.                 (mapcar
    
21.                   '(lambda (x)
    
22.                      (setq val (vlax-get i (read x)))
    
23.                      (setq str (cons (if (= (type val) 'STR)
    
24.                                        (xdrx_string_regexpr "\\\\\\\\.\\\\|^[ ]+|[ ]+$"
    
25.                                                             val ""
    
26.                                        )
    
27.                                        val
    
28.                                      ) str
    
29.                                )
    
30.                      )
    
31.                    )
    
32.                   (xdrx_string_split Items ",")
    
33.                 )
    
34.       )
    
35.       (vlax-release-object qry)
    
36.       (vlax-release-object svr)
    
37.       (reverse str)
    
38.     )
    
39.   )
    
40. )

(defun XD::SYSTEM:WMI-Query (table Items Conditions / i qry query_string str svr val x)<br />   (if (and<br />         (or<br />           **XD::WMI**<br />           (xd::vlaobject-p **XD::WMI**)<br />           (setq **XD::WMI** (vlax-create-object "WbemScripting.SWbemLocator"))<br />         )<br />         (setq svr (vlax-invoke **XD::WMI** 'ConnectServer))<br />         (setq Conditions (if (XD::NotEmptystring-p Conditions)<br />                            (strcat " where " Conditions)<br />                            ""<br />                          )<br />         )<br />         (setq query_string (strcat "SELECT " Items " FROM " table Conditions))<br />         (setq qry (vlax-invoke svr 'ExecQuery query_string))<br />       )<br />     (progn<br />       (setq str nil)<br />       (vlax-for i qry <br />                 (mapcar<br />                   '(lambda (x)<br />                      (setq val (vlax-get i (read x)))<br />                      (setq str (cons (if (= (type val) 'STR)<br />                                        (xdrx_string_regexpr "\\\\\\\\.\\\\|^[ ]+|[ ]+$"<br />                                                             val ""<br />                                        )<br />                                        val<br />                                      ) str<br />                                )<br />                      )<br />                    )<br />                   (xdrx_string_split Items ",")<br />                 )<br />       )<br />       (vlax-release-object qry)<br />       (vlax-release-object svr)<br />       (reverse str)<br />     )<br />   )<br /> )

1. 
   
2. 命令: tt
   
3. CPU型号:Intel(R) Core(TM) i7-4790 CPU @ 3.60GHz
   
4. 序列号:BFEBFBFF000306C3
   

复制代码

2、获取内存大小：

1. (defun c:tt ()
   
2.     (princ
   
3.         (strcat "\n内存大小:"
   
4.                 (rtos (setq memsize (/ (atof (car (XD::SYSTEM:WMI-QUERY
   
5.                                                       "Win32_PhysicalMemory"
   
6.                                                       "Capacity" ""
   
7.                                                   )
   
8.                                              )
   
9.                                        )
   
10.                                        (^ 1024 3)
    
11.                                     )
    
12.                       )
    
13.                       2
    
14.                       0
    
15.                 )
    
16.                 "G"
    
17.         )
    
18.     )
    
19.     (princ)
    
20. )
    
21. 
    

(defun c:tt ()<br />     (princ<br />         (strcat "\n内存大小:"<br />                 (rtos (setq memsize (/ (atof (car (XD::SYSTEM:WMI-QUERY<br />                                                       "Win32_PhysicalMemory"<br />                                                       "Capacity" ""<br />                                                   )<br />                                              )<br />                                        )<br />                                        (^ 1024 3)<br />                                     )<br />                       )<br />                       2<br />                       0<br />                 )<br />                 "G"<br />         )<br />     )<br />     (princ)<br /> )<br /> <br />

1. 
   
2. 命令: tt
   
3. 内存大小:8G
   

复制代码

3、获取操作系统名字

1. (defun c:tt ()
   
2.     (princ
   
3.         (strcat "\n操作系统:"
   
4.                 (car (XD::SYSTEM:WMI-QUERY "Win32_OperatingSystem" "Caption" ""))
   
5.         )
   
6.     )
   
7.     (princ)
   
8. )
   

(defun c:tt ()<br />     (princ<br />         (strcat "\n操作系统:"<br />                 (car (XD::SYSTEM:WMI-QUERY "Win32_OperatingSystem" "Caption" ""))<br />         )<br />     )<br />     (princ)<br /> )<br />

1. 
   
2. 命令: tt
   
3. 
   
4. 操作系统:Microsoft Windows 10 企业版
   

复制代码

4、获取所有的物理硬盘的序列号

1. (defun c:tt ()
   
2.     (princ
   
3.         (strcat "\n硬盘序列号:"
   
4.                 (vl-prin1-to-string
   
5.                     (vl-sort (xd::list:group<n (mapcar '(lambda (x)
   
6.                                          (xdrx_string_regexpr "PHYSICALDRIVE" x "DISK")
   
7.                                       )
   
8.                                      (XD::SYSTEM:WMI-QUERY
   
9.                                          "Win32_PhysicalMedia"
   
10.                                          "TAG,SerialNumber"
    
11.                                          "TAG LIKE '%PHYSICALDRIVE%'"
    
12.                                      )
    
13.                              ) 2)
    
14.                              '(lambda (x y) (< (car x) (car y)))
    
15.                     )
    
16.                 )
    
17.         )
    
18.     )
    
19.     (princ)
    
20. )

(defun c:tt ()<br />     (princ<br />         (strcat "\n硬盘序列号:"<br />                 (vl-prin1-to-string<br />                     (vl-sort (xd::list:group<n (mapcar '(lambda (x)<br />                                          (xdrx_string_regexpr "PHYSICALDRIVE" x "DISK")<br />                                       )<br />                                      (XD::SYSTEM:WMI-QUERY<br />                                          "Win32_PhysicalMedia"<br />                                          "TAG,SerialNumber"<br />                                          "TAG LIKE '%PHYSICALDRIVE%'"<br />                                      )<br />                              ) 2)<br />                              '(lambda (x y) (< (car x) (car y)))<br />                     )<br />                 )<br />         )<br />     )<br />     (princ)<br /> )

1. 
   
2. 命令: tt
   
3. 
   
4. 硬盘序列号:(("DISK0" "W4Z1Z61C") ("DISK1" "S1E2SBF7") ("DISK2" "S1E2S9JH") ("DISK3"
   
5. "718167584100000") ("DISK4" "000000000000") ("DISK5" "000000000001") ("DISK6"
   
6. "000000000002") ("DISK7" "000000000003") ("DISK8" "000000000004"))
   

复制代码

................................

st788796

                               
登录/注册后可看大图

wmiexplorer 绿色版

HLCAD

非常感谢版主，到这里学到了不少新东西。

lj524917100

学习一下子

ynhh

有的电脑无法用
错误: SWbemService**: Generic failure
不知何因

newer

ynhh 发表于 2017-6-10 10:51

看看系统的WMI服务启动没

lucas3

看看，学习

ynhh

newer 发表于 2017-6-10 11:20

这不知道如何看啊
有什么修复程序都不行
感觉只能重新安装操作系统了

newer

ynhh 发表于 2017-6-10 21:38

在WMI控件上右键- 属性，看成功连接到本地计算机没。