VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/02/20(Fri) 13:21
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： Re: pingの応答を返したい

> ＶＢで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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -