get IP and MX of a domain with Emacs

ipmx.el

; get ip and mx
(let ((domain "mydomain.com"))
  (switch-to-buffer-other-window "*temp*")
  (erase-buffer)
  (setq www (format "www.%s" domain))
  (setq ip "")
  (setq mx "")
  (setq ret-val (call-process "ping" nil t nil domain "-n" "1"))
  (if (equal ret-val 0)
      (progn
      	(goto-char 1)
	(setq ip (buffer-substring-no-properties
	          (search-forward "[") (- (search-forward "]") 1)))))
  (erase-buffer)
  (call-process "nslookup" nil t nil "-type=MX" domain)
  (goto-char 1)
  (if (search-forward "mail exchanger = " nil t)
      (progn
	(setq mx (thing-at-point 'filename))))
  (other-window 1)
  (print (concat "\t" ip "\t" mx)))