[求助]利用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

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

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

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

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

发表回复

精选推荐

浏览过的版块