[Vadikan]

white155, через VBS уже решено http://forum.oszone.net/thread-134813.html

[HellWolf06]

Если тебе именно нужно сообщение на экран, то вот скрипт на vbscript:
'Этот скрипт проверяет наличие интернета.
'(C)HellWol06 2011
Set WshShell = CreateObject ("WScript.Shell")
TestResult = WshShell.Run ("ping " & "www.google.com", 0, True)
If TestResult = 0 Then
MsgBox "Интернет работает! "
Else
MsgBox "Интернет не работает! "
End If

А если тебе просто узнать, есть ли интернет, то просто в командной строке введи ping http://www.google.com/xx-hacker

[Anton04]

HellWolf06,

Данный скрипт выяснит только доступность DNS, а не наличие подключения к интернету. В случае не работы DNS этот скрипт будет всегда показывать, что интернет не работает, хотя фактически интернет будет работать.

[Iska]

Для большинства задач этого будет достаточно, чтобы отвалиться. Вы, навскидку, сколько вспомните ip-адресов каких-либо сервисов в сети?

[HellWolf06]

Ну а как вы будете работать без DNS?
Вместо google.ru вводить IP google?)
(C)HellWolf06 2011