[LISP程序]：如何改才能在win2000上用

wuz

这段程序在xp上用无问题,可在win2000就不行.若能改,我付费.E: MAwuz@126.com
(defun c:phy()
  (vl-load-com)   

  (setq serx '())
  (if (SETQ OBJW (Vlax-Create-Object "wbemScripting.SwbemLocator"))
    (progn                     
      (SETQ lccon (VLAX-Invoke  
    OBJW       'ConnectServer      "."   
    "\\root\\cimv2"   ""      ""
    ""        ""   128      nil
   )
      )
      (setq lox (vlax-invoke  
  lccon
  'ExecQuery  
  "Select SerialNumber,Tag from Win32_PhysicalMedia"
)
      )
      (vlax-for item lox  
(setq serx (cons (list (vlax-get item 'Tag)
       (vlax-get
item
'SerialNumber  
       )
)
serx
   )
)
      )
      (vlax-release-object lox)  
      (vlax-release-object lccon)
      (vlax-release-object objW)
    )
  )
  (setq q serx)))

  (print q)
  )

eachy

到函数库论坛查看源帖中的解决方法