欲海猛男 发表于 2011-1-4 20:26:12

用lisp如何获取电脑的物理地址？

用lisp如何获取电脑的物理地址？

欲海猛男 发表于 2011-1-5 12:32:30

就是读取物理地址

sfzyr 发表于 2021-8-6 03:13:54

本帖最后由 sfzyr 于 2021-8-6 03:15 编辑

highflybird 发表于 2021-7-26 08:08
不需连接到网络，依旧可以获得。
我这边是win10系统，双网卡，无线连上时候，显示无线的MAC，有线的连上，就显示有线的，wifi和网线的都连接上网，都显示。若都不连上网络，就显示nil。还请老大看看，问题出在哪了。是不是需要打开某个服务（服务未启动？）
#<VLA-OBJECT ISWbemLocator 000002623ee42a80>
#<VLA-OBJECT ISWbemServicesEx 000002623ee423a0>
#<VLA-OBJECT ISWbemObjectSet 00000262bb8b6e90>
nil
_$
_$

#<VLA-OBJECT ISWbemLocator 000002625b53c3c0>
#<VLA-OBJECT ISWbemServicesEx 000002625b53a370>
#<VLA-OBJECT ISWbemObjectSet 0000026214ec4f70> B8:9A:2A:2D:96:97
nil
_$

#<VLA-OBJECT ISWbemLocator 0000026224079240>
#<VLA-OBJECT ISWbemServicesEx 00000262240785e0>
#<VLA-OBJECT ISWbemObjectSet 000002629cfda6b0> F8:75:A4:FD:3B:09B8:9A:2A:2D:96:97
nil
_$

highflybird 发表于 2021-7-5 10:25:40

sfzyr 发表于 2021-7-5 00:46
http://club.excelhome.net/forum.php?mod=viewthread&tid=1403424&page=1&_dsign=c7707872，是不是这些 ...

方法一： 在64位系统中采用
(vlax-create-object "Aec32BitAppServer.AecScriptControl.1"))
替换
(vlax-create-object "ScriptControl")
方法二：
采用如下代码：

(setq wmi (vlax-create-object "WbemScripting.SWbemLocator"))
(setq svr (vlax-invoke wmi 'ConnectServer))
(setq net (vlax-invoke svr 'InstancesOf "Win32_NetworkAdapterConfiguration"))
(vlax-for n net
    (if(/= (vlax-get n 'IPEnabled) 0)
      (princ (vlax-get n 'MacAddress))
    )
)

ZZXXQQ 发表于 2011-1-4 22:26:00

不知所云。你要知道物理地址干嘛？就是知道了WINDOWS也不会让你向地址内写东西。

highflybird 发表于 2011-1-5 18:21:25

(setq *wsc (vlax-create-object "ScriptControl"))
(vlax-put *wsc "language" "vbs")
(setq str "Set mc=GetObject(\"Winmgmts:\").InstancesOf(\"Win32_NetworkAdapterConfiguration\")")
(vlax-invoke *wsc 'ExecuteStatement str)
(setq objNet (vla-eval *wsc "mc"))
(princ "\n物理地址是:")
(vlax-for obj objNet
    (if(/= (vlax-get obj 'IPEnabled) 0)
      (princ (vlax-get obj 'MacAddress))
    )
)
(vlax-release-object *wsc)
(princ)

欲海猛男 发表于 2011-1-5 20:01:45

不错啊

hgf876 发表于 2011-1-5 20:50:45

不错，学习

egos 发表于 2011-4-25 15:27:12

楼上的程序是获取网卡物理地址

linshiyin2 发表于 2011-4-25 17:30:18

此物理地址非内存物理地址

sfzyr 发表于 2021-7-5 00:20:05

highflybird 发表于 2011-1-5 18:21


我用的是Autocad2021，64位的，你这个“scriptcontrol”控件对象，不能创建啊，还修改下吗？

sfzyr 发表于 2021-7-5 00:25:26

highflybird 发表于 2011-1-5 18:21


是不是64位系统导致的问题，有无好的办法改改程序，谢谢。
https://blog.csdn.net/WinsenJiansbomber/article/details/41376999?utm_medium=distribute.pc_relevant.none-task-blog-baidujs_title-1&spm=1001.2101.3001.4242
页: [1] 2
查看完整版本: 用lisp如何获取电脑的物理地址？