nslookupの結果をExcelで出力したい。

質問

エクセルのVBAにてnslookupの結果を出力するマクロの数値を教えていただきたいです。
ご閲覧いただき、ありがとうございます。

今、とあるwebシステムを使って
毎月2000件程のお客様の取引データをCSVファイルにて保存しております。
取引データについては、IPアドレスが振られているのですが、
不正に入手したIPアドレス等がデータに残るので、
データをDNSの逆引きツールを用いて手作業でチェックしています。

その際に使用するスクリプトがあるのですが、
一回一回ブラウザを出してチェックしなければならないので、

コマンドプロンプトを呼び出し、nslookupのドメイン逆引きの結果の
名前の項目をエクセルのセルに出力するマクロ、及びバッチファイルででの
作業工程を教えていただきたいと思います。

IPアドレス=C列
逆引きの結果=Q列

以上、宜しくお願い致します。

回答No.3

mt2008 · ベストアンサー

ざっくりしたサンプルです。

A1:A5に調べたいIPが入っているとして、B列に名前を書きだしています。
一瞬DOS窓が開くのは我慢。
また、サンプルですのでエラー処理は入っていません。あしからず。

Sub Sample()
　　Dim Wsh, wExec, cmd, rRes, i, j
　　Dim sBuf() As String

　　Set Wsh = CreateObject("WScript.Shell")
　　For i = 1 To 5
　　　　Set wExec = Wsh.exec("%ComSpec% /c nslookup " & Cells(i, 1))

　　　　Do While wExec.Status = 0
　　　　　　DoEvents
　　　　Loop
　　　　rRes = wExec.StdOut.ReadAll
　　　　sBuf = Split(rRes, vbCrLf)
　　　　For j = 0 To UBound(sBuf)
　　　　　　If Left(sBuf(j), 5) = "Name:" Or Left(sBuf(j), 3) = "名前:" Then
　　　　　　　　Cells(i, 2) = Trim(Right(sBuf(j), Len(sBuf(j)) - 5))
　　　　　　End If
　　　　Next j
　　Next i
End Sub

回答No.2

lupin-333333

もしかしたら、この辺が一番簡単かも

http://community.spiceworks.com/scripts/show/1201-powershell-script-dns-forward-lookup-script-with-auto-generate-excel-file

ちょこっと、変更するだけ。

内容は逆転の発想です。エクセルを他のスクリプトからＣＯＭとして呼び出し、書き込む。まあ、こっちの方が簡単でしょうね。

回答No.1

lupin-333333

スレがなかなかつかないのは、虫がよすぎるからでしょう。

まずこの辺で、基本的な呼び出しについて学んでください

http://search.yahoo.co.jp/search?p=%22%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%22+%22VBA%22+%22DOS%E3%82%B3%E3%83%9E%E3%83%B3%E3%83%89%22&aq=-1&oq=&ei=UTF-8&fr=ie8sc&n=10&x=wrt

コマンドの出力結果について

http://search.yahoo.co.jp/search?b=1&n=10&ei=UTF-8&fr=ie8sc&p=%22DOS%E3%82%B3%E3%83%9E%E3%83%B3%E3%83%89%22+%22%E3%83%AA%E3%83%80%E3%82%A4%E3%83%AC%E3%82%AF%E3%83%88%22

でテキストファイルを読むには

http://search.yahoo.co.jp/search?p=%22%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%22+%22VBA%22+%22%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%22%E3%80%80%E8%AA%AD%E3%81%BF%E8%BE%BC%E3%81%BF&aq=-1&oq=&ei=UTF-8&fr=ie8sc&n=10&x=wrt

なんて見れば、コピペでとりあえずできます。

できたら、大まかのところが分かったら、ＣＯＭ等でＤＮＳデーターを問い合わせる物を見つけ、又はＴＣＰ／ＩＰ情報を引き出すＣＯＭを見つけ、インスタンスとして作成してください。そうすれば変数（or Cell）に直接格納できます。

イントラネット内ですよね。インターネット上のものはセキュリティーがかかっている場合おおいのですが・・・

であれば、最初からリストしておくのが最も手っ取り早いんですけどね。キャッシュとか、どうしているんでしょうね。

まあ、がんばって