Excelにpingの応答結果を記録する方法

社内SEをやっているとネットワークエラーが発生し、その問題を切り分けるためにpingコマンドによってネットワークにつながっているかの確認を行う。

社内SEはプライベートIPアドレスを利用するため、利用できるIPアドレスに制限がある。企業によって様々だろうがIPアドレスとそれに紐付けたPCの管理などを行っていると思うが、そのIPアドレスを本当に利用しているのかを確認するときでもこの作業は有効だ。

今回の記事ではExcelに予めIPアドレスを記載しておけば、それに応じてping疎通が成功したか失敗したかを記録させる方法を紹介する。

Ping疎通ってどうやるの？

pingの送信方法はOSによって異なる。pingのあとにホスト名もしくはIPアドレスを入力するのだが、家でテスト的に送信したい場合は｢yahoo.co.jp｣、｢tamocolony.com｣などホームページのURLでも大丈夫だ。

Excelからpingコマンドを実行して応答結果を記録する方法

1. ExcelのA列に今回応答確認したいIPアドレスを記載する。
2. Excelの｢開発｣タブより、｢Visual Basic｣を開く。
   
   ※｢開発｣タブが表示されていない方はこちらの記事を先に参照してほしい。
3. 「ThisWorkbook」をダブルクリックして、下記コードを貼り付けよう。
   

   Sub ping()
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            cmd = "cmd.exe /c ping " & Cells(i, 1)
            Set wsh = CreateObject("WScript.Shell")
            If wsh.Run(cmd, vbNormalFocus, True) Then
                Cells(i, 2).Value = "失敗"         
   	 Else
                Cells(i, 2).Value = "成功"
            End If
        
        Set wsh = Nothing
        Next
   End Sub​

4. Visual Basicの画面を閉じ、同じく開発タブにある「マクロ」を選択する。
   
5. 「ThisWorkbook.ping」というマクロがあるので、選択して[実行]ボタンを押すと、ExcelのB列にpingの応答結果が記載される。

まとめ

ここにきてなんだがWindowsにはExPingという素晴らしいソフトがあり、このソフトの応答結果をExcelに抽出する事もできる。

しかし、はじめからExcelにIPアドレスの一覧を貼り付けておくことで加工が楽だったりとメリットも存在するのでぜひ有効活用してほしい。

https://www.xdomain.ne.jp/