MACアドレスの調査で

MACアドレスの調査をしようと考え、次の１行を書いたバッチファイルを作成し、
社内でネットワークに繋がっているパソコンを順次回って動かそうと思っています。

ipconfig /all >> macaddress.txt

※getmacを使えないのは、XP HOMEもあるため、ipconfigにしました。

そこで、集めた情報を加工して、重複がないか調べようと思っています。

次のようなのが繰り返しファイルに追加されていきます。
次のようなCSV形式にしたいです。

"Host Name","Physical Address","IP Address"


エディタでコツコツ編集するしかないでしょうか？

------- ipconfig の結果(例) -------------------------------

Windows IP Configuration
Host Name . . . . . . . . . . . . : pcname
Primary Dns Suffix . . . . . . . :
Node Type . . . . . . . . . . . . : Unknown
IP Routing Enabled. . . . . . . . : No
WINS Proxy Enabled. . . . . . . . : No
DNS Suffix Search List. . . . . . : xxxxx.xx.xx

Ethernet adapter ローカル エリア接続:
Connection-specific DNS Suffix . : xxxxx.xx.xx
Description . . . . . . . . . . . : Intel(R) PRO/1000 MT Network Connection
Physical Address. . . . . . . . . : 00-00-00-00-00-00
Dhcp Enabled. . . . . . . . . . . : Yes
Autoconfiguration Enabled . . . . : Yes
IP Address. . . . . . . . . . . . : 0.0.0.0
Subnet Mask . . . . . . . . . . . : 0..0.0
Default Gateway . . . . . . . . . : 0.0.0.0
DHCP Server . . . . . . . . . . . : 0.0.0.0
DNS Servers . . . . . . . . . . . : 0.0.0.0

------- ipconfig の結果(例) -------------------------------

No.3 ベストアンサー 回答者： tkf- 回答日時： 2014/02/20 20:53

カテゴリ違いな回答ですが、同じサブネット内の他のPCからPING投げてARP登録を確認する方法では駄目ですか？

http://www.atmarkit.co.jp/fwin2k/win2ktips/930ar …

プログラムで解決する方法もありますが、OSによってはメッセージが微妙に異なったり、複数のネットワークアダプタを持っている(例：有線LANと無線LANなど)場合の処理には注意が必要です。

> そこで、集めた情報を加工して、重複がないか調べようと思っています。
意図的に変更しない限り、重複はないはずですし、同じサブネット内で重複があれば、まともなIP通信は出来ません。

この回答への補足

勉強不足でした。
arp使ってみます。

補足日時：2014/02/28 09:36

この回答へのお礼

回答ありがとうございます。

お礼日時：2014/02/28 09:26

No.2 回答者： NotFound404 回答日時： 2014/02/20 20:36

EXCEL の VBA ですが、こんなのを標準モジュールに書いといて

ファイルサーバーの共有フォルダに配置。
各PCから実行してみるとか。

Sub NACwql()
Dim SWset
Dim SW
Dim Locator
Dim Service
Dim i
On Error Resume Next

Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Service = Locator.ConnectServer
Set SWset = Service.ExecQuery("Select * From Win32_NetworkAdapterConfiguration where ipenabled = true")
i = Cells(Rows.Count, 1).End(xlUp).Row

For Each SW In SWset
i = i + 1
Cells(i, 1) = SW.dnshostName
Cells(i, 2) = SW.macAddress
Cells(i, 3) = SW.IPAddress(0)
Cells(i, 4) = SW.dhcpEnabled
Cells(i, 4) = SW.Description
Next

Set SWset = Nothing
Set SW = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub

この回答への補足

EXCELが入ってないところでは実行できないですが、参考にさせて頂きます。

補足日時：2014/02/28 09:35

この回答へのお礼

回答ありがとうございます。

お礼日時：2014/02/28 09:26

No.1 回答者： lv4u 回答日時： 2014/02/20 10:38

>>エディタでコツコツ編集するしかないでしょうか？

そんなことはありません。
そのテキストファイルを順番に読み込んで編集してＣＳＶファイルを出力するプログラムをPerlとかRuby（別の言語でもいいけど）などを使って質問者さんが、あるいは別の誰かが作ればいいだけです。