[求助]VLISP能读机器的IP地址吗？

dinosaurhxe · 发表于 2008-6-29 14:08:00

如题。

dinosaurhxe2 · 发表于 2008-6-29 22:29:00

请前辈高人们不吝赐教啊。
我希望它返回的是一个字符串，如"192.168.1.1"等。

英雄无敌 · 发表于 2008-6-30 08:39:00

查了查VB的代码,写了一个,

(defun c:ip ()
(setq obj (vlax-get-or-create-object "MSWinsock.Winsock"))
(setq ip (vlax-get-property obj 'LocalIP))
(vlax-release-object obj)
(princ "\n本机IP地址是：")
(princ ip)
(princ)
)

其实主要是不知道"MSWinsock.Winsock"

wangph · 发表于 2008-6-30 09:40:00

试验了一下没成功，请问对无线网络有效吗？

wangph · 发表于 2008-6-30 09:42:00

(vlax-get-or-create-object "MSWinsock.Winsock") 读不出来结果

英雄无敌 · 发表于 2008-6-30 09:51:00

这是取本机IP的，我也不知道对无线网络有没有用。

在我的电脑上试了是可以的。不能用的话，我也不知道是什么原因。

xshrimp · 发表于 2008-6-30 12:09:00

(defun ipaddress (/ item meth1 meth2 ml s wmi)
(vl-load-com)
(setq ml '()
WMI (vlax-create-object "WbemScripting.SWbemLocator")
meth1 (VLAX-INVOKE WMI 'ConnectServer nil nil nil nil nil nil nil nil)
meth2 (vlax-invoke meth1 'ExecQuery (strcat "Select IPAddress from Win32_NetworkAdapterConfiguration"))
S (vlax-for item meth2 (setq ml (append
(vlax-get item 'IPAddress)
ml
)
)
)
)
(vlax-release-object meth1)
(vlax-release-object meth2)
(vlax-release-object wmi)
s
)

mccad · 发表于 2008-6-30 19:42:00

(defun c:ip ()
(setq obj (vlax-get-or-create-object "rcbdyctl.Setting"))
(setq ip (vlax-get-property obj 'GetIPAddress))
(vlax-release-object obj)
(princ "\n本机IP地址是：")
(princ ip)
(princ)
)

dinosaurhxe · 发表于 2008-7-1 10:56:00

谢谢各位前辈指点。虽然看不太懂，一定好好学习。

claotlaot · 发表于 2008-7-4 13:59:00

收藏了，其实IP地址何必要在LSP得到呢

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