カテゴリー
SugiBlog ホームページ制作・システム開発|大阪

PCが起動しているかを調べる

この記事は最終更新日から1年以上経過しています。
Private Sub Example()

  If PingResult("192.168.1.1") = False Then
    MsgBox "PCが起動していません。"
  Else
    MsgBox "PCは起動しています。"
  End If

End Sub

Function PingResult(strHostname As String)

  Dim objWMIService As Object, objStatus As Variant

  Set objWMIService = _
    GetObject("winmgmts:{impersonationLevel=impersonate}"). _
    ExecQuery("select * from Win32_PingStatus where address = '" & _
    strHostname & "'", , 48)

  For Each objStatus In objWMIService
    If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
      PingResult = False
    Else
      PingResult = True
    End If
  Next

End Function

この記事がお役に立ちましたらシェアお願いします

2,320 views

コメントは受け付けていません。