[讨论]：WIN2000系统下函数xdl-MACAddress 不能用

luoxb

在WIN2000系统下函数xdl-MACAddress 不能用,是什么原因,需要修改函数吗?

;获取网卡号

;;Test OK with XP
;;Use WMI to Get Networkadapter MAC.
;;Author : eachy [eachy@xdcad.net]
;;Web : http://www.xdcad.net
;;2005.11.22
(defun xdl-MACAddress (/ mac WMIobj serv lox sn)
  (vl-load-com)
  (setq mac '())
  (if (SETQ WMIobj (VLAX-CREATE-OBJECT "wbemScripting.SwbemLocator"))
    (progn (SETQ serv (VLAX-INVOKE WMIobj 'ConnectServer "." "\\root\\cimv2" "" "" "" "" 128 nil))
           (setq lox (vlax-invoke serv 'ExecQuery "Select * From Win32_NetworkAdapter "))
           (vlax-for item lox
             (if (and (= (vlax-get item 'NetConnectionID) "本地连接") ;中文系统
                      (not (member (setq sn (vlax-get item 'MACAddress)) mac))
                 )
               (setq mac (cons sn mac))
             )
           )
           (mapcar 'vlax-release-object (list lox serv WMIobj))
    )
  )
  (reverse mac)
)

HuaiYu

我也同样很需要啊，请 eachy 版主明示啊!!

ywqq

调试到
(VLAX-INVOKE WMIobj 'ConnectServer "." "\\root\\cimv2" "" "" "" "" 128 nil))
就出错，
点解啊！