[求助]：这个程序如何改为2000下用

cqxt00

这个程序只能在XP系统下用  能不能改为WIN2000下用呢

2. 
   
3. (defun c:vr        (/ 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. )

<br /> (defun c:vr        (/ 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 /> )

zxq0220

程序与操作系统没关系。只要ACAD是2000以上版就行了。

cqxt00

我在WIN2000下就没有用起   ！

错误: SWbemLocator: 无效参数
请教如何更改

xjghbcf

大家好，我是新手，请关照。

cqxt00

我在WIN2000下就没有用起 ！

错误: SWbemLocator: 无效参数
请教如何更改

eachy

SwbemLocator 是MircroSoft中的 WMI ，你搜索相关文档看2000中和XP是不是不同

cqxt00

eachy  
我没有搜索到！！！！

eachy

http://www.blueidea.com/bbs/archivecontent.asp?id=779243

[iframe h=600 w=100%]http://www.blueidea.com/bbs/archivecontent.asp?id=779243[/iframe]

http://tech.sina.com.cn/c/2004-01-15/26930.html

[iframe h=600 w=100%]http://tech.sina.com.cn/c/2004-01-15/26930.html[/iframe]

http://www.google.com/search?hl= ... 9C%E7%B4%A2&lr=

cqxt00

非常感谢