[求助]利用lisp读取电脑的IP地址

caravaggio

请问大虾们有没有办法利用lisp读取电脑的IP地址或计算机名呢.


谢谢!

spring

(defun c:aa ()
(command "_.Shell" (strcat "ipconfig >" "c:\\aa.txt"))
(princ)
) 到 c 盘下打开 aa.txt 看看吧.

caravaggio

谢谢!!

caravaggio

对不起, 其实我想读取计算机名,然后记下来.


谢谢!

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4309

caravaggio

我试过了,但 (getenv "ComputerName") 及 (getenv "UserName") 回来的都是nil !!


我发现我可以自定义这个"ComputerName"的 : (setenv "ComputerName" "cname"), 好象跟我电脑的"计算机名"不一样啊!

meflying

那就不知道是不是你系统的问题了，我这里都没问题的

龙龙仔

;;試試這個,但要看你的系統是否支持 (defun C:TT (/ WS)
(vl-load-com)
(setq WS (vlax-create-object "wscript.network"))
(alert
(strcat "USERNAME= "
(vlax-get-property WS 'USERNAME)
"\n\nUSERDOMAIN= "
(vlax-get-property WS 'USERDOMAIN)
"\n\nCOMPUTERNAME= "
(vlax-get-property WS 'COMPUTERNAME)
)
)
(vlax-release-object WS)
)

caravaggio

成功! 非常感谢龙兄罢刀相助, 谢谢!