LISP怎么获取IP地址

admin1

[code]
(vl-load-com)
(defun LXY-IP (/ aspip xml)
        (setq xml (vlax-create-object "Microsoft.XMLHTTP"))
  (vlax-invoke xml 'open "get" "http://www.3322.org/dyndns/getip" 0)
  (vlax-invoke xml 'setrequestheader "If-Modified-Since" 0)
        (vlax-invoke xml 'send)
  (setq aspip (vlax-get xml "responseText"))
(princ aspip)
(princ)
)[/code]