[LISP函数]：如何改才能在win2000上使用

wuz

(setq serx '())
  (if (SETQ OBJW (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
    (progn
      (SETQ lccon (VLAX-INVOKE
                    OBJW       'ConnectServer             "."
                    "\\root\\cimv2"          ""             ""
                    ""               ""          128             nil
                   )
      )
这段程序在xp完全正确,可在win2000指出:VLAX-CREATE-OBJECT 未定义,另一台win2000则说:SwbemLocator无效参数,请高手改一下能在win2000上使用.
全文如下:;;Test OK with XP
(defun xd-phyhar        (/ ret serx objw lccon lox)
  (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)
    )
  )
  (princ (reverse serx))
  (princ)
)