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

caravaggio · 发表于 2004-5-25 18:01:00

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

谢谢!

spring · 发表于 2004-5-25 18:10:00

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

caravaggio · 发表于 2004-5-25 18:13:00

谢谢!!

caravaggio · 发表于 2004-5-25 18:34:00

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

谢谢!

meflying · 发表于 2004-5-25 19:28:00

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

caravaggio · 发表于 2004-5-25 19:55:00

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

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

meflying · 发表于 2004-5-25 21:22:00

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

龙龙仔 · 发表于 2004-5-26 08:09:00

;;試試這個,但要看你的系統是否支持 (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 · 发表于 2004-5-26 16:11:00

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

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