[amel27]

Может способом возможности открытия некого сайта или посредством ping? »

еще вариант через WMI:

Код:

iPing = Ping("www.google.com")

If iPing=0 Then
  WScript.Echo "Интернет есть"
Else
  WScript.Echo "Интернета НЕТ, код ошибки: "& iPing
End If

Function Ping (strTarget)
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")

  For Each objPing in colPings
    Ping = objPing.StatusCode
  Next
End Function

З.Ы. В корпоративных сетях этот метод почему-то работает не всегда, через PING.EXE надежней