提取ip的方法

citykunan

除了用shell的方法还有什么可以提取ip的方法？(command "_.Shell" (strcat "ipconfig >" "c:\\lhy_leo\\ip.txt"))

alin

http://discussion.autodesk.com/thread.jspa?messageID=1195544

;;############### Begin GetIP.lsp ###############
(defun getIP ( / Reg-Key ipAddy)

(setq Reg-Key (strcat
"HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\"
(car (vl-registry-descendents
"HKEY_LOCAL_MACHINE\\SYSTEM\\ControlSet001\\Services\\"))
"\\Parameters\\Tcpip") )

(setq ipAddy (vl-registry-read Reg-Key "DhcpIPAddress"))

ipAddy
)

;;############### End GetIP.lsp ###############

ljpnb

alin版大厉害，不过这句(setq ipAddy (vl-registry-read Reg-Key "DhcpIPAddress"))返回值不是本机的IP地址，改成(setq ipAddy (cadr (vl-registry-read Reg-Key "IPAddress")))返回本机的IP

citykunan

每台机器可能会不一样，看一下上面的连接吧。