使用WMI得到处理器的位数

marting

1. (defun GetProcessorDataWidth (/ S WMI meth1 meth2)
   
2.   (and (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
   
3.        (setq meth1 (VLAX-INVOKE
   
4.                      WMI      'ConnectServer    nil      nil
   
5.                      nil      nil      nil      nil      nil
   
6.                      nil
   
7.                     )
   
8.        )
   
9.        (setq meth2 (vlax-invoke
   
10.                      meth1
    
11.                      'ExecQuery
    
12.                      "select DataWidth from Win32_Processor"
    
13.                    )
    
14.              s     (vlax-for item meth2
    
15.                      (setq serx (list (vlax-get item 'DataWidth)))
    
16.                    )
    
17.        )
    
18.        (vlax-release-object WMI)
    
19.   )
    
20.   (car s)
    
21. )

(defun GetProcessorDataWidth (/ S WMI meth1 meth2)<br />   (and (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))<br />        (setq meth1 (VLAX-INVOKE<br />                      WMI      'ConnectServer    nil      nil<br />                      nil      nil      nil      nil      nil<br />                      nil<br />                     )<br />        )<br />        (setq meth2 (vlax-invoke<br />                      meth1<br />                      'ExecQuery<br />                      "select DataWidth from Win32_Processor"<br />                    )<br />              s     (vlax-for item meth2<br />                      (setq serx (list (vlax-get item 'DataWidth)))<br />                    )<br />        )<br />        (vlax-release-object WMI)<br />   )<br />   (car s)<br /> )

命令: (GETPROCESSORDATAWIDTH)
64

ynhh

使用WMI相关函数
有的电脑会出现
错误: SWbemService**: Generic failure
不知是什么原因？？

marting

ynhh 发表于 2017-5-29 19:57

(setq WMI (vlax-create-object "WbemScripting.SWbemLocator")) 能创建对象不？

看看注册表有CLASSID注册没

ynhh

marting 发表于 2017-5-29 20:36

这太复杂了
普通人操作太困难
谢谢你

kqqt6236

这个厉害了。