Реально работающий скрипт на доступность интернета ;-)

[Александр]

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

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

'Проверка доступности интернета
'-------------------------------------------------------------------------------
Function fnPing( strHost)
  Dim objPing, objRetStatus
    Set objPing = GetObject( "winmgmts:{impersonationLevel=impersonate}" ).ExecQuery _
                                          ( "select * from Win32_PingStatus where address = '" & strHost & "'" )
    For Each objRetStatus in objPing
      If IsNull( objRetStatus.StatusCode ) or objRetStatus.StatusCode <> 0 Then
        fnPing = -1
      Else
        fnPing = objRetStatus.ResponseTime
      End If
    Next
End Function 

и вызов (у нас например гороскоп и валюты идут из интернета и без проверки на забастовки провайдера, в случае невыплаты зарплат - висло все...)

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

Option Explicit
Public Const Network = "4.2.2.2"  ' "вечный" адрес google
Sub gor
  if RIC_Function.fnPing( Network)>=0 then 
    Goroskop.Goroskop
  else
    Msgbox "Интернет временно недоступен..." & vbcrlf & _
                 "    попробуйте вернуться к данной операции..." & vbcrlf & _
                 "         немного позже...", _
                 vbOkOnly +vbInformation+vbSystemModal, _
                 "Гороскоп" 
  end if
end sub