Excel VBAで簡単ネットワーク診断：Pingを使った基本的な接続チェック方法とIPアドレス・ホームページ・サーバーへのPingテストを手軽に実行する方法！（テクニック）

2024年3月2日

Excel VBAで簡単ネットワーク診断：Pingを使った基本的な接続チェック方法とIPアドレス・ホームページ・サーバーへのPingテストを手軽に実行する方法！（テクニック）

●はじめに

Excel VBAを用いたネットワーク診断の自動化は、日常の業務において非常に便利なツールとなり得ます。特に、ネットワークの状態を迅速にチェックしたいIT管理者や、簡単なトラブルシューティングツールを求めているユーザーにとっては、このようなスクリプトが大いに役立ちます。本記事では、Excel内でVBAコードを使用して特定のIPアドレスへPingを送信し、その結果をユーザーに通知する方法を紹介します。これにより、日常の業務におけるネットワークトラブルシューティングを段階的に、かつ効率的に行うことができます。

日常業務への応用
下記のVBAプログラムは日常の業務に応用することで、次のようなメリットが得られます。

迅速なネットワーク診断: ネットワークの問題を素早く特定し、対処することができます。
生産性の向上: 手動でのトラブルシューティング手順を自動化することで、時間を節約し、他の作業に集中できます。
教育ツールとしての活用: ネットワークの基本的な概念やトラブルシューティングの方法を理解するための実践的なツールとして利用できます。

●【下記のVBAプログラムに関連するMicrosoft公式ドキュメントは以下の通りです。】
・Win32_PingStatusクラス: Ping操作の結果に関する情報を含む、Win32_PingStatusクラスの公式ドキュメントです。
https://learn.microsoft.com/en-us/previous-versions/windows/desktop/wmipicmp/win32-pingstatus

EXCEL VBAで実現するPingコマンド：IPアドレス入力で接続状態を即時チェック

●プログラム説明　(サンプル①)

今回説明するプログラムは、Pingの通信状態を調べるプログラムです。ネットワーク接続やサーバーの可用性は、日々の業務や情報技術の世界で非常に重要な要素です。特に、リモートで作業する際や、特定のサービスへの接続が必要な場合、その状態を迅速に把握することが求められます。ここで紹介するプログラムは、そのような状況において非常に役立ちます。このプログラムを使用することで、指定されたIPアドレスへのPingテストを実行し、その通信状態を確認することができます。ユーザーは簡単にIPアドレスを入力し、その結果を即座に確認できるようになります。このコードは、IT管理者やネットワーク技術者にとって貴重なツールとなりえます。それでは、順番に説明いたします。

【プログラムの流れ】
1.ユーザーに対してInputBoxを使用してIPアドレスの入力を求めます。
2.入力がない場合、処理を終了します。
3.WbemScripting.SWbemLocatorオブジェクトを作成し、ローカルPCにWMI経由で接続します。
4.Win32_PingStatusクエリを使用して、入力されたIPアドレスに対するPingテストを実行します。
5.Pingテストの結果をイテレーションし、各結果に対してステータスコードを確認します。
6.ステータスコードに基づいて、Pingの成功、タイムアウト、到達不可、その他の失敗を示すメッセージボックスを表示します。
7.使用したオブジェクトを解放します。

【プログラム実行条件・注意事項】
1.このスクリプトはWindows Management Instrumentation (WMI) を使用しています。そのため、WMIが有効になっているWindowsシステムでのみ動作します。
2.IPアドレスが正しく入力されていることを確認してください。不正な形式のIPアドレスは処理できません。
3.ネットワークの状態やファイアウォールの設定によっては、Pingテストが正常に実行されない場合があります。

★【サンプルプログラム】
下記のリンク先よりサンプルプログラムをダウンロードする事ができます。
●　ping01（サンプルプログラム）

'
'
Sub PingPC01()
    ' 複数のオブジェクト変数を宣言
    Dim objLocator As Object, objServer As Object, objPingSet As Object, ping As Object
    ' IPアドレスを格納する変数を宣言
    Dim ipAddress As String
    
    ' IPアドレスの入力をユーザーに促す
    ipAddress = InputBox("IPアドレスを入力してください（例：192.168.1.1）", "IPアドレス入力")
    
    ' 入力がない場合は処理を終了
    If ipAddress = "" Then Exit Sub
    
    ' SWbemLocatorオブジェクトの作成
    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    
    ' WMIを使用してローカルPCに接続
    Set objServer = objLocator.ConnectServer()
    
    ' Win32_PingStatusを使用してPing実行
    Set objPingSet = objServer.ExecQuery("Select * From Win32_PingStatus Where Address = '" & ipAddress & "'")
    
    ' Pingの結果をイテレーション
    For Each ping In objPingSet
        ' StatusCodeに基づく結果の表示
        If ping.StatusCode = 0 Then
            MsgBox "Ping成功"
        ElseIf ping.StatusCode = 11010 Then
            MsgBox "Ping失敗【タイムアウト】"
        ElseIf ping.StatusCode = 11003 Then
            MsgBox "Ping失敗【到達不可】"
        Else
            MsgBox "Ping失敗"
        End If
    Next
    
    ' オブジェクトの解放
    Set objLocator = Nothing
    Set objServer = Nothing
    Set objPingSet = Nothing
    '
End Sub
'
'

Sub PingPC01()

' 複数のオブジェクト変数を宣言

Dim objLocator As Object, objServer As Object, objPingSet As Object, ping As Object

' IPアドレスを格納する変数を宣言

Dim ipAddress As String

' IPアドレスの入力をユーザーに促す

ipAddress = InputBox("IPアドレスを入力してください（例：192.168.1.1）", "IPアドレス入力")

' 入力がない場合は処理を終了

If ipAddress = "" Then Exit Sub

' SWbemLocatorオブジェクトの作成

Set objLocator = CreateObject("WbemScripting.SWbemLocator")

' WMIを使用してローカルPCに接続

Set objServer = objLocator.ConnectServer()

' Win32_PingStatusを使用してPing実行

Set objPingSet = objServer.ExecQuery("Select * From Win32_PingStatus Where Address = '" & ipAddress & "'")

' Pingの結果をイテレーション

For Each ping In objPingSet

' StatusCodeに基づく結果の表示

If ping.StatusCode = 0 Then

MsgBox "Ping成功"

ElseIf ping.StatusCode = 11010 Then

MsgBox "Ping失敗【タイムアウト】"

ElseIf ping.StatusCode = 11003 Then

MsgBox "Ping失敗【到達不可】"

Else

MsgBox "Ping失敗"

End If

' オブジェクトの解放

Set objLocator = Nothing

Set objServer = Nothing

Set objPingSet = Nothing

End Sub

●実行前～実行後 ※入力したIPアドレスにより、Ping成功、Ping失敗【タイムアウト】、Ping失敗【到達不可】、またはPing失敗のいずれかのメッセージボックスが表示されます。
（画面クリックして拡大）

EXCEL VBAで学ぶ: ネットワーク監視を自動化するPingテストスクリプトの作成方法・複数IPアドレスへのPingテスト自動化！

●プログラム説明　(サンプル②)

下記のサンプルプログラムは、サンプルプログラム①の応用になります。このプログラムは、Excelワークシート上で指定された複数のIPアドレスに対してPingテストを実行し、結果を記録する自動化スクリプトです。ワークシートのB列にリスト化されたIPアドレスを読み取り、各アドレスに対してPing応答をテストします。応答状況に基づいて、”Ping成功”、”Ping失敗【タイムアウト】”、”Ping失敗【到達不可】”などの結果をC列に記録します。このスクリプトは、ネットワークの状態監視やトラブルシューティングに役立ち、繰り返しの手作業を削減することで効率を向上させます。それでは、順番に説明いたします。

【プログラムの流れ】
１．必要なオブジェクト変数を宣言します。
２．1番目のワークシートを作業対象として設定します。
３．最終行をB列の内容から取得します。
４．C列の既存の内容をクリアします。
５．SWbemLocatorオブジェクトを作成してWMIに接続します。
６．2行目から最終行まで、B列からIPアドレスを読み取ります。
７．読み取ったIPアドレスにPingを実行し、結果を取得します。
８．Pingの結果に応じて、”Ping成功”、”Ping失敗【タイムアウト】”、”Ping失敗【到達不可】”、または”Ping失敗”をC列に記録します。
９．全ての行に対してPingテストを完了した後、使用したオブジェクトを解放します。
１０．完了メッセージボックスを表示します。

【プログラム実行条件・注意事項】
１．このスクリプトを実行する際は、現在開いているワークシートが正しいデータを含んでいること、そして、正しいワークシートがターゲットとなっていることを確認してください。
２．大量のIPアドレスに対してPingテストを行う場合、処理に時間がかかることがあります。そのため、ユーザーは処理の完了を待つ必要があります。
３．コードの実行中にExcelを操作しないように注意してください。これは、処理中のデータの誤った入力や変更を防ぐためです。
４．ネットワークのセキュリティポリシーによっては、Pingコマンドが制限されている場合があります。そのような環境では、このスクリプトは期待通りに動作しない可能性があります。

★【サンプルプログラム】
下記のリンク先よりサンプルプログラムをダウンロードする事ができます。
●　ping02（サンプルプログラム）

’
’
Sub PingPCs02()
    ' 必要なオブジェクト変数を宣言
    Dim objLocator As Object, objServer As Object, objPingSet As Object, ping As Object
    Dim ws As Worksheet
    Dim lastRow As Long, r As Long
    Dim ipAddress As String
    Dim result As String

    ' ワークシートオブジェクトの設定
    Set ws = ThisWorkbook.Sheets(1) ' 1番目のワークシートを使用。必要に応じて変更してください。
    
    ' 最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' C列の結果を削除
    ws.Range("C2:C" & lastRow + 2).ClearContents
    
    ' SWbemLocatorオブジェクトの作成
    Set objLocator = CreateObject("WbemScripting.SWbemLocator")
    
    ' WMIを使用してローカルPCに接続
    Set objServer = objLocator.ConnectServer()
    
    ' 2行目から最終行まで繰り返し
    For r = 2 To lastRow
        ' B列からIPアドレスを取得
        ipAddress = ws.Cells(r, "B").Value
        
        ' Ping実行
        Set objPingSet = objServer.ExecQuery("Select * From Win32_PingStatus Where Address = '" & ipAddress & "'")
        
        ' Pingの結果を評価
        For Each ping In objPingSet
            If ping.StatusCode = 0 Then
                result = "Ping成功"
            ElseIf ping.StatusCode = 11010 Then
                result = "Ping失敗【タイムアウト】"
            ElseIf ping.StatusCode = 11003 Then
                result = "Ping失敗【到達不可】"
            Else
                result = "Ping失敗"
            End If
            ' 結果をC列に記録
            ws.Cells(r, "C").Value = result
        Next ping
    Next r
    
    ' オブジェクトの解放
    Set objLocator = Nothing
    Set objServer = Nothing
    Set objPingSet = Nothing
    
    MsgBox "Ping判定が完了しました。", vbInformation
End Sub
’
’

’

Sub PingPCs02()

' 必要なオブジェクト変数を宣言

Dim objLocator As Object, objServer As Object, objPingSet As Object, ping As Object

Dim ws As Worksheet

Dim lastRow As Long, r As Long

Dim ipAddress As String

Dim result As String

' ワークシートオブジェクトの設定

Set ws = ThisWorkbook.Sheets(1) ' 1番目のワークシートを使用。必要に応じて変更してください。

' 最終行を取得

lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

' C列の結果を削除

ws.Range("C2:C" & lastRow + 2).ClearContents

' SWbemLocatorオブジェクトの作成

Set objLocator = CreateObject("WbemScripting.SWbemLocator")

' WMIを使用してローカルPCに接続

Set objServer = objLocator.ConnectServer()

' 2行目から最終行まで繰り返し

For r = 2 To lastRow

' B列からIPアドレスを取得

ipAddress = ws.Cells(r, "B").Value

' Ping実行

Set objPingSet = objServer.ExecQuery("Select * From Win32_PingStatus Where Address = '" & ipAddress & "'")

' Pingの結果を評価

For Each ping In objPingSet

If ping.StatusCode = 0 Then

result = "Ping成功"

ElseIf ping.StatusCode = 11010 Then

result = "Ping失敗【タイムアウト】"

ElseIf ping.StatusCode = 11003 Then

result = "Ping失敗【到達不可】"

Else

result = "Ping失敗"

End If

' 結果をC列に記録

ws.Cells(r, "C").Value = result

Next ping

Next r

' オブジェクトの解放

Set objLocator = Nothing

Set objServer = Nothing

Set objPingSet = Nothing

MsgBox "Ping判定が完了しました。", vbInformation

End Sub

’

●実行前～実行後　※プログラム実行後、指定された（B列）IPアドレスに対してPingテストが行われ、各アドレスのPing応答に基づいて「Ping成功」、「Ping失敗【タイムアウト】」、「Ping失敗【到達不可】」、または単純な「Ping失敗」という結果がワークシートのC列に記録されます。最終的に、「Ping判定が完了しました。」というメッセージが表示されます。
（画面クリックして拡大）