наличие подключения к интернету.

[quit]

привет всем ещё раз..
сегодня встал (встал именно вопрос) такой вопрос ,
мне необходимо в начале работы скрипта проверить наличие подключения к интернету , пробовал массу способов в том числе и пинг сервера ( но это не катит так как не позволяет система безопасности на работе .. тупо фаер режет . )

вот один из вариантов .. только он на vb

Public Shared ReadOnly Property Connected() As Boolean
Get
Dim ret As Boolean
Try
' возвращает имя устройства
Dim HostName As String = Dns.GetHostName()
Dim thisHost As IPHostEntry = Dns.GetHostByName(HostName)
Dim thisIpAddr As String = thisHost.AddressList(0).ToString

ret = thisIpAddr <> _
Net.IPAddress.Parse("127.0.0.1").ToString()

Catch ex As Exception
Return False
End Try

Return ret
End Get
End Property

у кого есть мысли по этому поводу , или может заготовки есть .. с удовольствием посмотрел бы ..

честно скажу , до этого у меня была система построена на arp запросе, если arp таблица не пуста то инет есть ...
но по сути это не верно, вот и хотел бы узнать у знатоков, если ли более точный способ это уточнить ! ?

[quit]

немного спустя ...
в общем на ум пришла идея с закачкой страниц .. и уже исходя из этого определение наличия интернета.

Код: Выделить всё

Set AA = CreateObject("Scripting.FileSystemObject")
  With CreateObject("MSXML2.XMLHTTP")
     .open "GET", "http://test.ru/test.txt", TRUE
     .send


вот тут можно по идеи попробовать определить открывается ли вообще этот линк.. и если нет то quit
если есть вариант как это сделать то плиз в студию.

Код: Выделить всё

  Set A2 = AA.CreateTextFile("test.txt")
      A2.WriteLine .responseText
End With

[Sebas]

воспользуйся поиском и ... попроси, чтобы Тебя сильно не пинали! (Потом поймёшь))

[ALX_2002]

Если с пингом, то можно сделать вот так:

Код: Выделить всё

Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
Dim WshExec
Set WshExec = WshShell.Exec("ping 127.0.0.1")

Set Stream = CreateObject("ADODB.Stream")
Stream.Type = 2
Stream.Charset = "Windows-1251"
Stream.Open
Stream.WriteText WshExec.StdOut.ReadAll
Stream.Position = 0
Stream.Charset = "cp866"

Response.Write Stream.ReadText


Если с XMLHTTP, то лучше наверное проверятьпо статусу ответа.

Код: Выделить всё

Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.Open "GET","http://www.ya.ru",False
XMLHTTP.Send
If XMLHTTP.Status = 200 Then
   Response.Write "Сервер доступен"
Else
   Response.Write "Сервер недоступен"
End if


[quit]

и как всегда ALX_2002 меня выручает , и без лишней болтовни говорит дельные советы ..
огромнейшее спасибо !!!