Как пинговать сайт из моего кода

---

Я делаю небольшую программу для тестирования сетевого подключения
Вся моя работа в порядке но единственная проблема с которой я сталкиваюсь это код

Res = My.Computer.Network.Ping(txtComputerName.Text).ToString

он нормально работает в моей локальной сети и дает мне хорошие результаты
но когда я пытаюсь пропинговать веб-сайт, он выдает мне ошибку

обратите внимание, что я могу получить доступ к интернету через ISA server 2006 и не могу подключить свой компьютер непосредственно к маршрутизатору

Что я уже пробовал:

Это и есть вся функция

<pre>     Try
            Dim Res As Boolean

            lblError.Text = String.Empty
            StopPing = False
            Me.PictureBox1.Image = ImageList1.Images(0)
            Me.lblElpased.ForeColor = Color.MidnightBlue

            Dim i As Short = 0
            Do
                Application.DoEvents()
                If StopPing Then Exit Do
                Threading.Thread.Sleep(300)
                Me.PictureBox1.Image = ImageList1.Images(0)
                Me.Refresh()
                Threading.Thread.Sleep(200)
                Application.DoEvents()
                Mtim = Stopwatch.StartNew
                Res = My.Computer.Network.Ping(txtComputerName.Text).ToString
                Mtim.Stop()
                Me.lblElpased.Text = "Time: " & Mtim.ElapsedMilliseconds & " ms"

                Dim hostInfo As IPHostEntry = Dns.GetHostEntry(txtComputerName.Text)
                Me.lblError.Text = hostInfo.HostName & vbCrLf

                If Res Then
                    Me.PictureBox1.Image = ImageList1.Images(1)
                    Me.lblElpased.ForeColor = Color.DarkGreen

                    Dim index As Integer
                    For index = 0 To hostInfo.AddressList.Length - 1
                        Me.lblError.Text &= hostInfo.AddressList(index).ToString & vbCrLf

                    Next
                Else
                    Me.PictureBox1.Image = ImageList1.Images(2)
                    Me.lblElpased.ForeColor = Color.DarkRed

                    Dim index As Integer
                    For index = 0 To hostInfo.AddressList.Length - 1
                        Me.lblError.Text &= hostInfo.AddressList(index).ToString & vbCrLf

                    Next
                End If
                i += 1
            Loop Until ((i >= NuPings.Value) And (chkKeepPing.Checked = False))
        Catch ex As Exception
            lblError.Text = ex.Message
        End Try

---