Реально работающий скрипт на доступность интернета ;-)
Добавлено: 20 янв 2011, 07:50
поскольку в Лоции 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