こんにちは。近藤です。「VBスクリプトで、そのスクリプトを動か
している計算機名またはIPアドレスを知りたい」という私の質問に
対して、多くの方からアドバイスをいただきました。

須山さん：

Takeshi SUYAMA <tsuyama@be.to> writes:
> http://www.microsoft.com/japan/technet/treeview/default.asp?url=/japan/technet/scriptcenter/network/scrnet02.asp
結局この方法でどんぴしゃでした。

----------------------------------------
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
            myIP = IPConfig.IPAddress(i)
    Next
    End If
Next
----------------------------------------
で myIP に自分のIPアドレスが入りました。


いいじまさん：
> ipconfig コマンドの出力をパイプなりテンポラリファイル経由なりで取り込む
> のはいかがでしょう。
自分的にはこれが一番やりたかったのですが、perlの「while(<FILE>){ ... }」
に相当する部分はVBSでどう書くのかから調べないといけなかった
ので、最初の方法で逃げてしまいました。_o_

同じく須山さん：
> MSWinsock.Winsock が使えるのでしたら、次のような script でとれます。
> 
> Set netObj = WScript.CreateObject ("MSWinsock.Winsock")
> MsgBox netObj.LocalIP
私の環境では使えないようで(googleで調べたらVBを入れる必要が
あると書いてありました)「"MSWinsock.Winsock"という名前のオー
トメーションクラスが見 つかりませんでした」と怒られました。

Mueさん：
news:microsoft.public.jp.inetexplorer.win 
というニュースグループの存在を教えていただきました。私の使っ
ているサーバも購読しているようです。

========================================
関係ないですが、この質問をしている間に
http://www.gest.unipd.it/~saint/visual-basic-mode.el.gz
というものの存在を知りました。なかなか便利。

アドバイスをくださった皆様にお礼申し上げます。
-- 
近藤努＠筑波大学図書館 kondou@tulips.tsukuba.ac.jp   fax:029-853-6311
■■■―――――■■■ PGP fingerprint:
■■■生涯筑大図■■■ 24 80 B9 38 25 6B 68 28  57 74 08 29 D3 34 C2 7C
■■■―――――■■■ http://www.tulips.tsukuba.ac.jp/~kondou/