投稿日 | : 2004/02/20(Fri) 13:21 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re: pingの応答を返したい |
> VBでpingを打って応答を返すにはどのようにやればよいのでしょうか?
Win32_PingStatus クラスを使ってみては如何でしょう。
Option Explicit
Private Sub Form_Load()
Text1.Text = "127.0.0.1"
Label1.Caption = ""
End Sub
Private Sub Command1_Click()
Dim ServerName As String
ServerName = Replace(Text1.Text, "\", "\\")
ServerName = Replace(ServerName, "'", "\'")
Dim WQL As String
WQL = "SELECT * FROM Win32_PingStatus WHERE Address='" & ServerName & "'"
Dim Ping As Object
For Each Ping In GetObject("winmgmts:").ExecQuery(WQL)
Select Case Ping.StatusCode
Case 0
Label1.Caption = "成功"
Case 11010
Label1.Caption = "タイムアウト"
Case Else
Label1.Caption = "その他のエラー"
End Select
Next
End Sub