物理地址

MMS · 发表于 2022-7-6 15:23:03

我想知道如何用AutoLISP阅读物理地址。

当做

多媒体信息服务

Lee Mac · 发表于 2022-7-6 15:32:33

我想知道你是否可以进一步澄清你所说的实际地址是什么意思？

谢谢

MMS · 发表于 2022-7-6 15:38:56

以太网适配器/mac地址。

Lee Mac · 发表于 2022-7-6 15:41:34

啊，当然，请原谅我的无知

乍一看，我对此表示怀疑。但你们可以用LISP找到各种各样的东西，比如版本、时间、日期等等，所以我不能完全排除。

ASMI · 发表于 2022-7-6 15:45:24

对于第一个网络适配器：

copy

(vl-registry-read "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Class\\{4D36E972-E325-11CE-BFC1-08002bE10318}\\0001" "HardwareAddress")

MMS · 发表于 2022-7-6 15:50:57

嗨，阿斯米，

结果为零。

你有密码吗？

谢谢

多媒体信息服务

ASMI · 发表于 2022-7-6 15:57:54

你使用什么操作系统？什么是连接类型：车载LAN适配器、独立LAN适配器或WiFi？

kpblc · 发表于 2022-7-6 16:04:52

http://www.caduser.ru/cgi-bin/f1/board.cgi?t=43327xi&page=1 :

copy

(defun vk_getmacaddress (/             locatorobj    serviceobj
                            securityobj   objectsetobj  outlist
                            )
 (setq locatorobj (vlax-create-object "WbemScripting.SWbemLocator"))
 (setq serviceobj
        (vlax-invoke
          locatorobj 'connectserver nil nil nil nil nil nil nil nil) ;_ end of vlax-invoke
       ) ;_ end of setq
 (setq objectsetobj
        (vlax-invoke
          serviceobj
          'execquery
          "Select * from Win32_NetworkAdapter"
          ) ;_ end of vlax-invoke
       ) ;_ end of setq
 (vlax-for obj objectsetobj
   (if (wcmatch (vl-princ-to-string (vlax-get obj 'adaptertype))
                "Ethernet 802.*"
                ) ;_ end of wcmatch
     (setq outlist (cons (vlax-get obj 'macaddress) outlist))
     ) ;_ end of if
   ) ;_ end of vlax-for
 (foreach obj (list locatorobj serviceobj securityobj objectsetobj)
   (and obj (vlax-release-object obj))
   ) ;_ end of foreach
 outlist
 ) ;_ end of defun

MMS · 发表于 2022-7-6 16:11:47

我正在使用局域网适配器。

谢谢

ASMI · 发表于 2022-7-6 16:14:12

你好你的操作系统是Vista？注册表中似乎缺少了“HardwareAddress”键，尝试使用kpblc函数。

[编程交流] 物理地址

发表回复

精选推荐