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

Обсуждение технических вопросов работы с системами управления базами данных (СУБД), работе с языком SQL и скриптовыми языками.
Ответить
Аватара пользователя
Александр
Активный участник
Сообщения: 1652
Зарегистрирован: 24 авг 2006, 08:06
Используемое ПО: Lotsia PDM PLUS
Откуда: 55.745578,37.665825

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

Сообщение Александр »

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

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

'Проверка доступности интернета
'-------------------------------------------------------------------------------
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

Софт - RicCRM<<LotsiaPDM(4.40)<<MsSQL(5/8)
Уровень администрирования - Альтернативный

Ответить