香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 29th Nov 2006, 17:32 PM | Script | (1158 Reads)

WMI Example: Ping (NetDiagnostics)

Supported on Windows XP

 

Sub Ping_Test()

    MsgBox Ping("emily") ' Ping 電腦 名稱

    MsgBox Ping("211.155.231.151") ' Ping IP

    MsgBox Ping("hk.yahoo.com") ' Ping 網站 ( 回傳成功 )

    MsgBox Ping("cat14051.mysinablog.com") ' Ping 網站 ( 回傳失敗 )

End Sub

Function Ping(strAddr As String) As String

   Dim blnOK As Boolean

    blnOK = GetObject("winmgmts:").Get("NetDiagnostics=@").Ping(strAddr, Ping)

    ' blnOK = True 為 Ping 成功 , 反之則為失敗

    Ping = Replace(Ping, "
", vbCrLf, 1, , 1) ' Ping 的結果

End Function