VBATips

サーバーやホストにPingが通るかチェックする【ExcelVBA】

サーバーやホストにPingが通るかチェックしたい

VBAマクロを動かすパソコンがインターネットに接続されているかどうか確認したい場合があります。
その場合、Pingが通るかどうか判断をします。

サーバーやホストにPingが通るかチェックするサンプルコード

'■サーバーやホストにPingが通るか確認する
Public Function Call_CheckPing(host As String) As Boolean
    Dim wsh As Object: Set wsh = CreateObject("Wscript.Shell")
    
    Const sendCount As Long = 1 '実施回数
    Const timeOut As Long = 100 'タイムアウトまでの秒数
    
    Dim cmd As String: cmd = "ping -n " & sendCount & " -w " & timeOut & " " & host
    
    '■Pingが届いたらTrue/届かなければFalse
    Call_CheckPing = wsh.Run(cmd, 7, True) = 0
 
End Function

実際の使い方は以下です。

Public Sub sample()
    Debug.Print Call_CheckPing("www.google.co.jp")
    Debug.Print Call_CheckPing("192.168.100.1")
End Sub

注意事項

  • 特にありません

関連記事

コメント