请安装有2014和2015的朋友帮忙测试一下

小菜

仅听说可能在2014和2015上不正常(部分电脑，我自己的正常)，请帮忙测试下面代码
看看能否得到屏幕分辨率，如果不行，请贴上屏幕显示的内容，谢谢。

2. (vl-load-com)
   
3. (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
   
4. (princ "\nWmi is:") (vlax-dump-object wmi t)
   
5. (setq meth1 (vlax-invoke wmi 'ConnectServer))
   
6. (princ "\nMeth1 is:") (vlax-dump-object meth1 t)
   
7. (setq meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_DesktopMonitor" "WQL" 48))
   
8. (princ "\nMeth2 is:") (vlax-dump-object meth2 t)
   
9.   (vlax-for n meth2
   
10.     (setq w (vlax-get n 'ScreenWidth))
    
11.     (setq h (vlax-get n 'ScreenHeight))
    
12.   )
    
13.   (mapcar 'vlax-release-object (list wmi meth1 meth2))
    
14. (princ "\nScreen resolution is:")
    
15.   (list w h)

(vl-load-com)<br /> (setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))<br /> (princ "\nWmi is:") (vlax-dump-object wmi t)<br /> (setq meth1 (vlax-invoke wmi 'ConnectServer))<br /> (princ "\nMeth1 is:") (vlax-dump-object meth1 t)<br /> (setq meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_DesktopMonitor" "WQL" 48))<br /> (princ "\nMeth2 is:") (vlax-dump-object meth2 t)<br />   (vlax-for n meth2<br />     (setq w (vlax-get n 'ScreenWidth))<br />     (setq h (vlax-get n 'ScreenHeight))<br />   )<br />   (mapcar 'vlax-release-object (list wmi meth1 meth2))<br /> (princ "\nScreen resolution is:")<br />   (list w h)

/db_自贡黄明儒_

测试结果:
T
#<VLA-OBJECT ISWbemObjectSet 0ad85ca8>
Meth2 is:
"\nMeth2 is:"
; ISWbemObjectSet: A collection of Classes or Instances
;特性值:
;   Count (RO) = SWbemObjectSet: 未指定的错误
;   Security_ (RO) = #<VLA-OBJECT ISWbemSecurity 0ad85d08>
;支持的方法:
;   Item (2)
;   ItemIndex (1)

T
1080
(0 1 0)
Screen resolution is:
"\nScreen resolution is:"
(1920 1080)
_$

小菜

这是正常结果

st788796

用 Windows 7 非管理员登录测试
再打开UAC

小菜

打开UAC也没有发现问题，除非WMI服务暂停

st788796

Wmi is:
; ISWbemLocator: Used to obtain Namespace connections
;特性值:
;   Security_ (RO) = #<VLA-OBJECT ISWbemSecurity 0e7681e0>
;支持的方法:
;   ConnectServer (8)

Meth1 is:
; ISWbemServicesEx: A connection to a Namespace
;特性值:
;   Security_ (RO) = #<VLA-OBJECT ISWbemSecurity 0e76b9b0>
;支持的方法:
;   AssociatorsOf (11)
;   AssociatorsOfAsync (13)
;   Delete (3)
;   DeleteAsync (5)
;   ExecMethod (5)
;   ExecMethodAsync (7)
;   ExecNotificationQuery (4)
;   ExecNotificationQueryAsync (6)
;   ExecQuery (4)
;   ExecQueryAsync (6)
;   Get (3)
;   GetAsync (5)
;   InstancesOf (3)
;   InstancesOfAsync (5)
;   Put (3)
;   PutAsync (5)
;   ReferencesTo (8)
;   ReferencesToAsync (10)
;   SubclassesOf (3)
;   SubclassesOfAsync (5)

Meth2 is:
; ISWbemObjectSet: A collection of Classes or Instances
;特性值:
;   Count (RO) = SWbemObjectSet: 未指定的错误
;   Security_ (RO) = #<VLA-OBJECT ISWbemSecurity 0e76bc50>
;支持的方法:
;   Item (2)
;   ItemIndex (1)

Screen resolution is:

小菜

这个也是对的，谢谢