LISP怎么获取IP地址

xsso · 发表于 2022-7-6 18:29

LISP获取IP地址吗，网域的，或者有更牛逼的麻烦指导一下

highflybird · 发表于 2022-7-6 18:29

如果是局域网，可以这样

(defun c:GetIP (/ SWbemLocator Service IPSet lst IP Address)
(setq SWbemLocator (vlax-create-object "WbemScripting.SWbemLocator"))
(setq Service (vlax-invoke SWbemLocator 'ConnectServer))
(setq IPSet (vlax-invoke Service 'InstancesOf "Win32_NetworkAdapterConfiguration"))
(setq lst nil)
(vlax-for IP IPSet
(if (setq Address (vlax-get IP 'IPAddress ))
(setq lst (cons Address lst))
)
)
(vlax-release-object IPSet)
(vlax-release-object Service)
(vlax-release-object SWbemLocator)
(reverse lst)
)

这样可以获得电脑上所有网卡（包括虚拟的）的局域网IP。

baitang36 · 发表于 2022-7-6 19:07

找到一个，没试过，你试试
(vl-load-com)
(defun LXY-IP (/ aspip xml)
(setq xml (vlax-create-object "Microsoft.XMLHTTP"))
  (vlax-invoke xml 'open "get" "http://www.3322.org/dyndns/getip" 0)
  (vlax-invoke xml 'setrequestheader "If-Modified-Since" 0)
(vlax-invoke xml 'send)
  (setq aspip (vlax-get xml "responseText"))
(princ aspip)
(princ)
)

utopio · 发表于 2022-7-6 20:27

baitang36 发表于 2022-7-6 19:07
找到一个，没试过，你试试
(vl-load-com)
(defun LXY-IP (/ aspip xml)

可以。

简单测试了一下

xsso · 发表于 2022-7-7 09:41

baitang36 发表于 2022-7-6 19:07
找到一个，没试过，你试试
(vl-load-com)
(defun LXY-IP (/ aspip xml)

666，应该是获得了外网IP，能获得局域IP吗

mokson · 发表于 2022-7-7 09:45

这都是接口调用，并不是 lst 本身功能

自贡黄明儒 · 发表于 2022-7-8 12:30

(command "Shell" "cmd.exe /K IPconfig/all")

xsso · 发表于 2022-7-8 18:11

自贡黄明儒发表于 2022-7-8 12:30
(command "Shell" "cmd.exe /K IPconfig/all")

666，可惜只有高版本可以执行这个，不过不知怎么将数据读回来

自贡黄明儒 · 发表于 2022-7-9 07:29

本帖最后由自贡黄明儒于 2022-7-9 08:16 编辑

xsso 发表于 2022-7-8 18:11
666，可惜只有高版本可以执行这个，不过不知怎么将数据读回来

win7 08
(command "Shell" "cmd.exe /K IPconfig/all > D:\\ip.txt")
(startapp "cmd.exe /K IPconfig/all > D:\\ip.txt")

ipconfig /all:显示本机TCP/IP配置的详细信息;

ipconfig /release DHCP客户端手工释放IP地址;

ipconfig /renew DHCP客户端手工向服务器刷新请求;

ipconfig /flushdns:清除本地DNS缓存内容;

ipconfig /displaydns:显示本地DNS内容;

ipconfig /registerdns DNS客户端手工向服务器进行注册;

ipconfig /showclassid:显示网络适配器的DHCP类别信息;

ipconfig /setclassid:设置网络适配器的DHCP类别。

ipconfig /renew "Local Area Connection":更新"本地连接"适配器的由 DHCP 分配 IP 地址的配置

ipconfig /showclassid Local*:显示名称以 Local 开头的所有适配器的 DHCP 类别 ID

ipconfig /setclassid "Local Area Connection" TEST:将"本地连接"适配器的 DHCP 类别 ID 设置为 TEST

highflybird大师getip返回 ((IPv4 地址本地链接 IPv6 地址))，但用dos可以返回丰富内容

qmotuo · 发表于 2022-7-11 18:15

还有这样玩的，牛逼

账号		自动登录	找回密码
密码			注册

[提问] LISP怎么获取IP地址

最佳答案

评分

评分