檢查伺服器是否在線上

   今天早上發生使用者讀不到對應的公司別，如下圖。查了程式，

造成的原因是在匯集三部 SVR / DSCSYS / DSCMA ，如有其中一部

掛點則無法正確顯示。

為徹底改善此問題，所以就讓程式先行判斷SVR是否在線上，後續

程式再進行連線。

WS是Success

CW是TimedOut

程式碼如下

'------------------------------------------------------------------

        Dim mySVR As System.Net.NetworkInformation.PingReply

        Dim PingSVR As New System.Net.NetworkInformation.Ping

        mySVR = PingSVR.Send(DNS or IP)

        If mySVR.Status = Net.NetworkInformation.IPStatus.Success Then

            'Do something

        End If

        PingSVR.Dispose()

'------------------------------------------------------------------

MSDN