[MD:1693] Ooops .. I forgot the way to find IP Addr on Meadow.

[KORIYAMA Naohiro <kory@xxxxxxxxxxxxxxxx>]

>>>>> [meadow-users-jp : No.1887] にて
>>>>> “Tim”= Tatsuya (Tim) Ichikawa <ichikawa@xxxxxxxxxxxxx> さま曰く:
Tim>   ちょっと、「Meadow 関連のどこかの ML」で確か elisp で IP Address を取
Tim>   得する方法を郡山さんが出しましたよね??

えと、fj.editor.emacsです。
windowsだったらこれでいけると思います。
複数インタフェース持ってる場合には、上からサーチするか下からサーチする
かを適宜変更するとよいのかも。
--
郡山直大 (こおりやま なおひろ)
work: koriyama@xxxxxxxxxxx
home: kory@xxxxxxxxxxxxxxxx
Web: http://www02.u-page.so-net.ne.jp/ba2/kory/

--- Begin Message ---

• Subject: Re: How to get IP-ADDRESS on Meadow 1.10
• From: KORIYAMA Naohiro <kory@xxxxxxxxxxxxxxxx>
• Date: 30 Jan 2000 02:46:12 +0900

>>>>> <86sig8$5nm$1@xxxxxxxxxxxxxxxxxxxxxxxxxx> にて
>>>>> “永見”= Masahiro Nagami <nagami@xxxxxxxxxxxxxxxxxxxxxxxx> さま曰く:

永見> ipconfig の出力から取り出すことができれば良いのですが、なにせelispに不馴
永見> れでして（というか、まったくわかっていない、、、）、Webで探してみたので
永見> すが、それらしきのを見つけることができませんでした。

(defun ip-address-get ()
  (interactive)
  (with-temp-buffer
    (call-process "ipconfig" nil t)
    (goto-char (point-min))
    (if (re-search-forward "IP[^0-9]*\\([0-9]+\\(\.[0-9]+\\)+\\)" nil t)
	(match-string 1)
      "unknown")))

みたいなのではいかがでしょう。
もっとスマートなやり方もあるとは思いますが。

ちなみにこのやり方だと、一枚目(?)のNICのIPアドレスのみ取得します。
--
郡山直大 (こおりやま なおひろ)
work: koriyama@xxxxxxxxxxx
home: kory@xxxxxxxxxxxxxxxx
Web: http://www02.u-page.so-net.ne.jp/ba2/kory/

--- End Message ---