使用Windows管理工具（WMI）接口 --VLISP开发技术（一）

newer

一、什么是WMI？

        WMI（Windows Management Instrumentation,Windows 管理规范）是一项核心的 Windows 管理技术；用户可以使用 WMI 管理本地和远程计算机。

利用WMI软件开发包（SDK）可以方便地查看可用的CIM和Win32类。WMI SDK可以从MSDN下载。

        WMI是一项核心的Windows管理技术，WMI作为一种规范和基础结构，通过它可以访问、配置、管理和监视几乎所有的Windows资源，比如用户可以在远程计算机器上启动一个进程；设定一个在特定日期和时间运行的进程；远程启动计算机；获得本地或远程计算机的已安装程序列表；查询本地或远程计算机的Windows事件日志等等。

二、VLISP利用ActiveX对象WbemScripting.SWbemLocator，可以对WMI进行查询。

        WbemScripting.SWbemLocator对象是一个数据库，可以用通用SQL的查询方法，SELECT对指定的数据表进行查询，比如查询CPU信息的Win32_Processor表，每个表下面有字段属性，比如：

select * from Win32_processor ，查询Win32_processor表下所有字段
select name,processorid from Win32_processor ，查询表下指定的name,processorid字段的内容

        WMI数据库支持条件查询，通过标准的数据库查询语句的WHERE来实现，比如：机器有很多硬件，有物理硬盘，有U盘，有光驱等等，我们如果用下面语句：


select tag,name from win32_physicaldrive


查询，会得到所有的磁盘信息，如果我们只是想知道物理硬盘的信息如何做呢？用WHERE条件查询

select tag,name from win32_physicaldrive where tag  '%PHYSICALDRIVE%'

表示只查询TAG字段内容包括PHYSICALDRIVE的，%在SQL里面相当于代表任意字符。这样就过滤掉不需要的磁盘了，节省时间，提高效率。

        一般情况下，不推荐使用 * 去查询表，因为有的表字段很多，达到几百个，用*,一次性读入所有字段的内容，造成不必要的浪费而且花费更多的时间，甚至操作感觉到卡顿。

        推荐所需即所得的方式，具体制定字段去查询。

三、 什么是XD::System:WMI-Query

       为了灵活控制要查询的表和字段及条件，晓东通用LISP函数库提供了WMI通用的查询函数接口（XD::System:WMI-Query），不用懂内部具体实现的细节，直接知道函数的参数，给它，就帮你查询你所需要的整个的WINDOWS系统的任何信息了。

       函数 XD::System:WMI-Query 见链接：http://bbs.xdcad.net/thread-709848-1-1.html

下面介绍 XD::System:WMI-Query 的应用：

1、如何使用WMI查询当前系统所属的域？

1. 命令: (xd::system:wmi-query "win32_computersystem" "domain" "")
   
2. ("WORKGROUP")
   
3. 
   

复制代码

2、如何使用WMI查询当前系统属于哪个工作组？

1. 
   
2. 命令: (xd::system:wmi-query "win32_computersystem" "workgroup" "")
   
3. ("WORKGROUP")
   

复制代码

3、何使用WMI查询当前系统属于域或工作组中属于什么角色？

1. 
   
2. 命令: (xd::system:wmi-query "win32_computersystem" "domainrole" "")
   
3. (0)
   
4. 
   

复制代码

这个字段的个释义是

Value	Meaning
0 (0x0)	Standalone Workstation
1 (0x1)	Member Workstation
2 (0x2)	Standalone Server
3 (0x3)	Member Server
4 (0x4)	Backup Domain Controller
5 (0x5)	Primary Domain Controller

4、如何使用WMI查询当前电脑的制造商信息？

1. 
   
2. 命令: (xd::system:wmi-query "win32_computersystem" "Manufacturer" "")
   
3. ("To be filled by O.E.M.")
   

复制代码

5、如何使用WMI获取当前系统类型？

1. 
   
2. 命令: (xd::system:wmi-query "win32_computersystem" "SystemType" "")
   
3. ("x64-based PC")
   
4. 
   

复制代码

以上值说明当前系统是X86体系的系统。它还可能是："x64-based PC"、"X86-based PC"、"MIPS-based PC"、"Alpha-based PC"、"Power PC"、"SH-x PC"、"StrongARM PC"、"64-bit Intel PC"、"64-bit Alpha PC"、"Unknown"、"X86-Nec98 PC"。

6、如何使用WMI查询当前电脑的物理内存大小？

1. 
   
2. 命令: (xd::system:wmi-query "win32_computersystem" "TotalPhysicalMemory" "")
   
3. ("17117716480")
   
4. 
   

复制代码

该大小是以Bytes为单位的。

7、如何使用WMI查询是否设置了开机密码？

1. 
   
2. 命令: (xd::system:wmi-query "win32_computersystem" "PowerOnPasswordstatus" "")
   
3. (0)
   
4. 
   

复制代码

如果设置了开机密码，我们开机后，会进入黑屏，让我们输入密码。如果密码输入错了就不会启动系统。一般鲜见设置这个密码。它的释义是

Value	Meaning
0 (0x0)	Disabled
1 (0x1)	Enabled
2 (0x2)	Not Implemented
3 (0x3)	Unknown

8、如何使用WMI查询电脑是笔记本还是台式机？

1. 
   
2. 命令: (xd::system:wmi-query "win32_computersystem" "PcSystemType" "")
   
3. (1)

复制代码

该属性只有在XP以上的系统中可以使用。它的释义是

Value	Meaning
0 (0x0)	Unspecified
1 (0x1)	Desktop
2 (0x2)	Mobile
3 (0x3)	Workstation
4 (0x4)	Enterprise Server
5 (0x5)	Small Office and Home Office (SOHO) Server
6 (0x6)	Appliance PC
7 (0x7)	Performance Server
8 (0x8)	Maximum

9、如何使用WMI查询电脑CPU信息？

1. (defun c:tt ()
   
2.     (setq info (XD::SYSTEM:WMI-QUERY
   
3.                    "Win32_Processor"
   
4.                    "Name,ProcessorId,NumberOfCores,ThreadCount"
   
5.                    ""
   
6.                )
   
7.     )
   
8.     (princ
   
9.         (strcat "\nCPU型号:" (car info) "\n序列号:" (cadr info) "\n核心数:" (itoa (caddr info)) "\n线程数:" (itoa (last info)))
   
10.     )
    
11.     (princ)
    
12. )
    

(defun c:tt ()<br />     (setq info (XD::SYSTEM:WMI-QUERY<br />                    "Win32_Processor"<br />                    "Name,ProcessorId,NumberOfCores,ThreadCount"<br />                    ""<br />                )<br />     )<br />     (princ<br />         (strcat "\nCPU型号:" (car info) "\n序列号:" (cadr info) "\n核心数:" (itoa (caddr info)) "\n线程数:" (itoa (last info)))<br />     )<br />     (princ)<br /> )<br />

1. 
   
2. CPU型号:Intel(R) Core(TM) i7-4790 CPU @ 3.60GHz
   
3. 序列号:BFEBFBFF000306C3
   
4. 核心数:4
   
5. 线程数:8
   
6. 
   

复制代码

10、如何使用WMI查询内存大小（不同于上面的那个）？

1. (defun c:tt ()
   
2.     (princ
   
3.         (strcat "\n内存大小:"
   
4.                 (rtos (setq memsize (/ (apply '+
   
5.                                               (mapcar 'atof
   
6.                                                       (setq val (XD::SYSTEM:WMI-QUERY
   
7.                                                                     "Win32_PhysicalMemory"
   
8.                                                                     "Capacity"
   
9.                                                                     ""
   
10.                                                                 )
    
11.                                                       )
    
12.                                               )
    
13.                                        )
    
14.                                        (^ 1024 3)
    
15.                                     )
    
16.                       )
    
17.                       2
    
18.                       0
    
19.                 )
    
20.                 "G , 插了 "
    
21.                 (itoa (length val))
    
22.                 " 条"
    
23.         )
    
24.     )
    
25.     (princ)
    
26. )
    
27. 
    

(defun c:tt ()<br />     (princ<br />         (strcat "\n内存大小:"<br />                 (rtos (setq memsize (/ (apply '+<br />                                               (mapcar 'atof<br />                                                       (setq val (XD::SYSTEM:WMI-QUERY<br />                                                                     "Win32_PhysicalMemory"<br />                                                                     "Capacity"<br />                                                                     ""<br />                                                                 )<br />                                                       )<br />                                               )<br />                                        )<br />                                        (^ 1024 3)<br />                                     )<br />                       )<br />                       2<br />                       0<br />                 )<br />                 "G , 插了 "<br />                 (itoa (length val))<br />                 " 条"<br />         )<br />     )<br />     (princ)<br /> )<br /> <br />

上面这个方法，能查到插了几个内存条，查询返回的表是单条容量的表

1. 
   
2. 命令: tt
   
3. 内存大小:16G , 插了 2 条
   
4. 
   

复制代码

11、如何使用WMI查询操作系统版本？

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

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

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

复制代码

12、如何使用WMI查询所有硬盘序列号？

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. )
    
21. 
    

(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 /> )<br /> <br />

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

复制代码

13、如何使用WMI查询显卡信息？

1. (defun c:tt ()
   
2.     (setq info (XD::SYSTEM:WMI-QUERY
   
3.                    "Win32_VideoController"
   
4.                    "Name,CurrentHorizontalResolution,CurrentVerticalResolution"
   
5.                    ""
   
6.                )
   
7.     )
   
8.     (princ
   
9.         (strcat "\n显卡型号:" (car info) "\n分辨率:" (itoa (cadr info)) "x:" (itoa (caddr info)))
   
10.     )
    
11.     (princ)
    
12. )

(defun c:tt ()<br />     (setq info (XD::SYSTEM:WMI-QUERY<br />                    "Win32_VideoController"<br />                    "Name,CurrentHorizontalResolution,CurrentVerticalResolution"<br />                    ""<br />                )<br />     )<br />     (princ<br />         (strcat "\n显卡型号:" (car info) "\n分辨率:" (itoa (cadr info)) "x:" (itoa (caddr info)))<br />     )<br />     (princ)<br /> )

1. 
   
2. 命令: tt
   
3. 显卡型号:NVIDIA GeForce GTX 750
   
4. 分辨率:1440x:900
   
5. 
   

复制代码

14、如何使用WMI查询网卡信息？

下面代码使用条件查询，查询网卡名字包括Realtek的网卡信息。

1. (defun c:tt ()
   
2.     (setq info (XD::SYSTEM:WMI-QUERY
   
3.                    "Win32_NetworkAdapter"
   
4.                    "Name,MACAddress"
   
5.                    "Name like '%Realtek%'"
   
6.                )
   
7.     )
   
8.     (mapcar '(lambda (x)
   
9.                  (princ (strcat "\n网卡型号:" (car x) " / MAC地址:" (cadr x)))
   
10.              )
    
11.             (setq lst (xd::list:group<n info 2))
    
12.     )
    
13.     (princ)
    
14. )

(defun c:tt ()<br />     (setq info (XD::SYSTEM:WMI-QUERY<br />                    "Win32_NetworkAdapter"<br />                    "Name,MACAddress"<br />                    "Name like '%Realtek%'"<br />                )<br />     )<br />     (mapcar '(lambda (x)<br />                  (princ (strcat "\n网卡型号:" (car x) " / MAC地址:" (cadr x)))<br />              )<br />             (setq lst (xd::list:group<n info 2))<br />     )<br />     (princ)<br /> )

1. 
   
2. 命令: tt
   
3. 网卡型号:Realtek PCIe GBE Family Controller  / MAC地址:30:0E:D5:BB:D8:D5
   
4. 网卡型号:Realtek RTL8139/810x Family Fast Ethernet NIC  / MAC地址:08:57:00:D5:86:5F
   
5. 
   

复制代码

四、WMI内容繁多，如何能找到各种表的信息，包含哪些字段？

提供个工具，下载：

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:wmiexplorer.zip 
下载次数:25  文件大小:549.32 KB  售价:1D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]

使用上面的工具，就看到系统WMI支持的各种查询了。

qqqincccken

謝謝版主發這麽些多有用又高深的,知識,學習了

longer1000

太高深了。。