社区 › Auto Lisp › 物理地址

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

对于第一个网络适配器：
 
(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 :
(defun vk_getmacaddress (/             locatorobj    serviceobj
                            securityobj   objectsetobjoutlist
                            )
(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函数。

查看完整版本: 物理地址